open_fortran_file("lm:gjc;ctest.out");
comment_fortran("The following list corresponds to the FORTRAN which follows")$
comment_fortran(eqns3)$
map('cray_fortran,eqns3)$
close_fortran_file();