C
C
C
C
C Programmazione II - Esempio di codice
C
C
C
C
C
C
C <![CDATA[
C Example code: MLP demonstration (Fortran part). (20000720 prelz@mi.infn.it)
C
Function Fsqr(Message,Number)
C
Double Precision Fsqr
Double Precision Number
Character*(*) Message
c
Fsqr = Sqrt(Number)
Write(*,'(1X,A,A,F10)') Message, ': ', Fsqr
c
Return
End
c
]]></plaintext></span>