Changes between Version 28 and Version 29 of InstallingCorsika


Ignore:
Timestamp:
10/20/18 14:35:06 (6 years ago)
Author:
tbretz
Comment:

--

Legend:

Unmodified
Added
Removed
Modified

  • InstallingCorsika

    v28 v29  
    154154        READ(MCERQEF,20) TEXTQEF
    155155        READ(MCERQEF,23,ERR=997,END=997) (QUAEFF(I),I = 1,105)
    156  23     FORMAT(8F6.3)
    157         CLOSE( MCERQEF )
    158         WRITE(MONIOU,22) TEXTQEF
    159156[...]
    160157C  READ THE MIRROR REFLECTIVITY
    … …  
    163160        READ(MCERMIR,20) TEXTREF
    164161        READ(MCERMIR,23,END=999,ERR=999) (MIRREF(I), I=1,105)
    165         CLOSE( MCERMIR )
    166         WRITE(MONIOU,22) TEXTREF
    167162}}}
    168163