C---------------------------------------- C subroutine mdsfindunit C---------------------------------------- CADJ SUBROUTINE mdsfindunit INPUT = 2 CADJ SUBROUTINE mdsfindunit OUTPUT = 1 C---------------------------------------- C subroutine mdsreadfield C---------------------------------------- CADJ SUBROUTINE mdsreadfield INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfield OUTPUT = 5 CADJ SUBROUTINE mdsreadfield DEPEND = 1,2,3,4,5,6,7 CADJ SUBROUTINE mdsreadfield REQUIRED C---------------------------------------- C subroutine mdswritefield C---------------------------------------- CADJ SUBROUTINE mdswritefield INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefield OUTPUT = C---------------------------------------- C subroutine mdsreadvector C---------------------------------------- CADJ SUBROUTINE mdsreadvector INPUT = 1,2,3,4, 6,7,8,9 CADJ SUBROUTINE mdsreadvector OUTPUT = 5 C---------------------------------------- C subroutine mdswritevector C---------------------------------------- CADJ SUBROUTINE mdswritevector INPUT = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mdswritevector OUTPUT = C---------------------------------------- C subroutine mds_byteswapr8 C---------------------------------------- CADJ SUBROUTINE mds_byteswapr8 INPUT = 1,2 CADJ SUBROUTINE mds_byteswapr8 OUTPUT = 2 C---------------------------------------- C subroutine mds_byteswapr4 C---------------------------------------- CADJ SUBROUTINE mds_byteswapr4 INPUT = 1,2 CADJ SUBROUTINE mds_byteswapr4 OUTPUT = 2 C---------------------------------------- C subroutine mdsreadfieldxz C---------------------------------------- CADJ SUBROUTINE mdsreadfieldxz INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldxz OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldxz C---------------------------------------- CADJ SUBROUTINE mdswritefieldxz INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldxz OUTPUT = C---------------------------------------- C subroutine mdsreadfieldyz C---------------------------------------- CADJ SUBROUTINE mdsreadfieldyz INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldyz OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldyz C---------------------------------------- CADJ SUBROUTINE mdswritefieldyz INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldyz OUTPUT = C---------------------------------------- C subroutine mdsreadfield_loc C---------------------------------------- CADJ SUBROUTINE mdsreadfield_loc INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfield_loc OUTPUT = 5 CADJ SUBROUTINE mdsreadfield_loc DEPEND = 1,2,3,4,5,6,7 CADJ SUBROUTINE mdsreadfield_loc REQUIRED C---------------------------------------- C subroutine mdswritefield_loc C---------------------------------------- CADJ SUBROUTINE mdswritefield_loc INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefield_loc OUTPUT = C---------------------------------------- C subroutine mdsreadvector_loc C---------------------------------------- CADJ SUBROUTINE mdsreadvector_loc INPUT = 1,2,3,4, 6,7,8,9 CADJ SUBROUTINE mdsreadvector_loc OUTPUT = 5 C---------------------------------------- C subroutine mdswritevector_loc C---------------------------------------- CADJ SUBROUTINE mdswritevector_loc INPUT = 1,2,3,4,5,6,7,8,9,10,11 CADJ SUBROUTINE mdswritevector_loc OUTPUT = C---------------------------------------- C subroutine mdsreadfieldxz_loc C---------------------------------------- CADJ SUBROUTINE mdsreadfieldxz_loc INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldxz_loc OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldxz_loc C---------------------------------------- CADJ SUBROUTINE mdswritefieldxz_loc INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldxz_loc OUTPUT = C---------------------------------------- C subroutine mdsreadfieldyz_loc C---------------------------------------- CADJ SUBROUTINE mdsreadfieldyz_loc INPUT = 1,2,3,4, 6,7 CADJ SUBROUTINE mdsreadfieldyz_loc OUTPUT = 5 C---------------------------------------- C subroutine mdswritefieldyz_loc C---------------------------------------- CADJ SUBROUTINE mdswritefieldyz_loc INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldyz_loc OUTPUT =