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 mdswritefield C---------------------------------------- CADJ SUBROUTINE mdswritefieldyz INPUT = 1,2,3,4,5,6,7,8,9 CADJ SUBROUTINE mdswritefieldyz OUTPUT =