C  SAMPLE OF FORTRAN CODE  I.PROCHAZKA APRIL 2013
      PROGRAM SAMPLE
      SOUCET(X,Y)=X+Y
      WRITE(*,1)
1     FORMAT(/' Example of FORTRAN programming'//
     #        ' input two numerical variables ',\)
      READ(*,*)  A,B
      WRITE(*,2)
2     FORMAT( ' Input  1     +'/
     #        '        2     -'/
     #        '        3     *                ',\)
      READ(*,*) KODE
      IF(KODE.EQ.1) C=SOUCET(A,B)
      IF(KODE.EQ.2) C=A-B
      IF(KODE.EQ.3) C=SOUCIN(A,B)
      IF(KODE.LT.1.OR.KODE.GT.3) STOP ' Bad input par.'
      WRITE(*,3) A,B,C
3     FORMAT(' Input ', 2F12.6, ' result' ,F12.6)
      END
C
      FUNCTION SOUCIN(X,Y)
C     COMPUTES PRODUCT OF INPUT VALUES  IP 120413
      SOUCIN=X*Y
      RETURN
      END