home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / ST79INIT.370 < prev    next >
Encoding:
Text File  |  1986-12-15  |  768 b   |  11 lines
  1.  
  2.       DOUBLE PRECISION MNAME,MPASS                                      00010000
  3.       DATA MNAME,MPASS,POINT/'DEMO    ','DEMO    ',0.0/                 00020000
  4.       DEFINE FILE 3(50,2400,L,IV)                                       00030000
  5.       DO 1 I=1,50                                                       00040000
  6.       WRITE(3'I)MNAME,POINT,MPASS                                       00050000
  7.       MPASS=-1                                                          00060000
  8. 1     CONTINUE                                                          00070000
  9.       STOP                                                              00080000
  10.       END                                                               00090000
  11. >