5 lines
237 B
Fortran
5 lines
237 B
Fortran
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)
|