SUBROUTINE TRLOADINIT(IRC) !DEC$ ATTRIBUTES DLLEXPORT :: TRLOADINIT INTEGER IRC IRC=1 RETURN END SUBROUTINE TRLOADSUFFIX(SUFFIX) !DEC$ ATTRIBUTES DLLEXPORT :: TRLOADSUFFIX CHARACTER*(*) SUFFIX SUFFIX(1:4)=".BX1" RETURN END SUBROUTINE TRLOADKIND(LANG,ITEM) !DEC$ ATTRIBUTES DLLEXPORT :: TRLOADKIND INTEGER LANG CHARACTER*(*) ITEM IF(LANG.EQ.1) THEN ITEM(1:15)="BOX-DATA(*.BX1)" ELSE ITEM(1:15)="BOX-DATA(*.BX1)" ENDIF RETURN END SUBROUTINE TRLOADGETWORKSIZE(FILENAME,BMAX,BMIN,WPITCH) !DEC$ ATTRIBUTES DLLEXPORT :: TRLOADGETWORKSIZE CHARACTER*(*) FILENAME DOUBLE PRECISION BMAX(3),BMIN(3),WPITCH BMAX(1)=200.D0 BMAX(2)=100.D0 BMAX(3)=15.D0 BMIN(1)=0.D0 BMIN(2)=0.D0 BMIN(3)=-3.D0 RETURN END SUBROUTINE TRLOADLOADWORK(FILENAME,WPITCH,IMAX,JMAX,TOP,TOPC,TOPN) !DEC$ ATTRIBUTES DLLEXPORT :: TRLOADLOADWORK CHARACTER*(*) FILENAME INTEGER IMAX,JMAX DOUBLE PRECISION WPITCH REAL*4 TOP(*) CHARACTER TOPC(*) INTEGER TOPN(*) DO 10 I=1,IMAX*JMAX TOP(I)=15.D0 10 CONTINUE RETURN END