125 |
c |
c |
126 |
IF (appel1er) THEN |
IF (appel1er) THEN |
127 |
if (prt_level > 9) THEN |
if (prt_level > 9) THEN |
128 |
WRITE(lunout,*)'coefkz, opt_ec:', opt_ec |
print *,'coefkz, opt_ec:', opt_ec |
129 |
WRITE(lunout,*)'coefkz, richum:', richum |
print *,'coefkz, richum:', richum |
130 |
IF (richum) WRITE(lunout,*)'coefkz, ratqs:', ratqs |
IF (richum) print *,'coefkz, ratqs:', ratqs |
131 |
WRITE(lunout,*)'coefkz, isommet:', isommet |
print *,'coefkz, isommet:', isommet |
132 |
WRITE(lunout,*)'coefkz, tvirtu:', tvirtu |
print *,'coefkz, tvirtu:', tvirtu |
133 |
appel1er = .FALSE. |
appel1er = .FALSE. |
134 |
endif |
endif |
135 |
ENDIF |
ENDIF |