% fort77 % % Purpose: user interface to fort77 module % Copyright: R.A. van Engelen, Leiden University, 1997 fort77_switch isa switch. hpf_forall isa fort77_switch. enddo isa fort77_switch. serial isa fort77_switch. capcase isa fort77_switch. uscore isa fort77_switch. serial isa fort77_switch. fortran_name_length isa counter. fort(_G2509, _G2510) is intrinsic(module = fort77, result = nil). fort(_G2509) is intrinsic(module = fort77, result = nil). stmt(_G2509) is intrinsic(module = fort77, result = nil). expr(_G2509) is intrinsic(module = fort77, result = nil).