home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 06_07 / link / caller.for next >
Encoding:
Text File  |  1988-04-05  |  966 b   |  35 lines
  1.       PROGRAM CALLER
  2. C
  3.       CHARACTER*2 TYP(10)
  4.       INTEGER*2 I2(10)
  5.       INTEGER*4 I4(10)
  6.       REAL*4    R4(10)
  7.       REAL*8    R8(10)
  8.       LOGICAL*4 L4(10)
  9. C
  10.       OPEN(UNIT=7,FILE='D:TEMPIN')
  11.       READ(7,*) JEND
  12.       DO 10 J=1, JEND
  13.    10 READ(7,*) TYP(J)
  14.       DO 100 J=1, JEND
  15.         IF (TYP(J).EQ.'I2') READ(7,*) I2(J)
  16.         IF (TYP(J).EQ.'I4') READ(7,*) I4(J)
  17.         IF (TYP(J).EQ.'R4') READ(7,*) R4(J)
  18.         IF (TYP(J).EQ.'R8') READ(7,*) R8(J)
  19.         IF (TYP(J).EQ.'L4') READ(7,*) L4(J)
  20.   100 CONTINUE
  21.       CLOSE(7)
  22. C *** Hier wird der Unterprogrammaufruf eingefügt ***
  23.       OPEN(UNIT=8,FILE='D:TEMPOUT')
  24.       DO 200 J=1, JEND
  25.         IF (TYP(J).EQ.'I2') WRITE(8,*) I2(J)
  26.         IF (TYP(J).EQ.'I4') WRITE(8,*) I4(J)
  27.         IF (TYP(J).EQ.'R4') WRITE(8,*) R4(J)
  28.         IF (TYP(J).EQ.'R8') WRITE(8,*) R8(J)
  29.         IF (TYP(J).EQ.'L4') WRITE(8,*) L4(J)
  30.   200 CONTINUE
  31.       CLOSE(8)
  32. C
  33.       STOP
  34.       END
  35.