6 lines
237 B
FortranFixed
6 lines
237 B
FortranFixed
|
IF (STYLE.EQ."PRE") CALL OUT(HAS)
|
||
|
|
IF (LINKL(HAS).GT.0) CALL TARZAN(LINKL(HAS),STYLE)
|
||
|
|
IF (STYLE.EQ."IN") CALL OUT(HAS)
|
||
|
|
IF (LINKR(HAS).GT.0) CALL TARZAN(LINKR(HAS),STYLE)
|
||
|
|
IF (STYLE.EQ."POST") CALL OUT(HAS)
|