listsize TPBIG.EXE /Mingw32 ATP (Alternative Transients Program)- EMTP ATP ATP ATP
ATP(TPBIG.EXE) EMTP (ATP)FORTAN77 DIMENSION C malloc listsize TACS DIMENSIONEMTP
ATP(TPBIG.EXE) listsize (CPU ) RL 4040 400400 TACS (TACS DIMENSION ) MODELS Compiled TACS Compiled MODELS
TPBIG.EXE DOS/V PC OS Win 95NT4.0 Linux (Mingw32) GNU (gcc-2.95.2-crtdll.exe) http://www.mingw.org/ MinGW-1.0.1-20010726 14320 ATP (libmingw.zip) ATP (atpmingw.zip) ATP JAUG http://atp.pwr.eng.osaka-u.ac.jp/~support/gnu/mingw32/
1. GNU (MinGW-1.0.1-20010726 ) mingw-1.0.1-20010726.tar.gz c: mingw (Winzip.exe ) C: mingw bin 2. ATP atpmingw.zipc: atpmingw 3. ATP libmingw.zipc: libmingw
1 GNU mingw32.bat MINGW.BAT PATH=c: mingw bin DOS FORTRAN g77.exe c: mingw mingw.bat DOS C: WINDOWS> cd libmingw C: LIBMINGW>c: mingw mingw.bat
2 ATP runtp.bat atb.bat atg.bat @if exist %TMP% fort* TPBIG.EXE set atpdir=d: atp32 set atpdir=c: atpmingw set gnudir=c: atpmingw ATB.BAT IF NOT EXIST %1.DAT GOTO NO @IF EXIST %1.PL4 DEL %1.PL4 @IF EXIST %1.LIS DEL %1.LIS del %TMP% fort* del *.err set atpdir=d: atp32 tpbig.exe both %1.dat %1. -R @REM ND @IF EXIST %1.PL4 GTPPL32 %1 @GOTO END :NO @ECHO EL ARCHIVO %1.DAT NO EXISTE :END
3 ATP Make.exe DOS ( ) C: WINDOWS> cd libmingw C: LIBMINGW> ren COMTAC.F comtac.f C: LIBMINGW> ren FGNMOD.F fgnmod.f C: LIBMINGW> ren USERNL.F usernl.f C: LIBMINGW> ren Makefile Makefile Makefile MakefileLIBRARY = tpbig.a h: dislin75 dismg7.a -luser32 -lgdi32 -lcomdlg32 #LIBRARY = tpbig.a dislin.a -luser32 -lgdi32 -lcomdlg32 # LIBRARY = tpbig.a h: dislin75 dismg7.a -luser32 -lgdi32 -lcomdlg32 LIBRARY = tpbig.a dislin.a -luser32 -lgdi32 -lcomdlg32
DOS C: WINDOWS> cd libmingw C: LIBMINGW> c: mingw mingw.bat GNU C: LIBMINGW> vardimn listsize.hit6 listsize DIMENSION newmods.f, dimdef.f listsize.hit6 C: LIBMINGW> make Compiled TACS comtac.f, comta1.ins, comta2.ins, comta3.ins Compiled MODELS fgnmod.f Type19-UM usernl.f
C: libmingw>vardimn listsize.hit6 C: libmingw>del newmods.o C: libmingw>del newmods.f C: libmingw>del dimdef.f C: libmingw>del dimdef.o C: libmingw>del comtac.o C: libmingw>vardim 0<listsize.hit6 Following are KBLTYP(1:177): 3 3 4 3 3 3 4 3 3 3 3 3 3 3 3 3 4 3 4 4 4 4 4 4 3 3 4 3 4 3 4 4 3 3 3 3 3 4 3 4 4 4 4 4 3 3 3 3 4 3 3 3 3 4 4 4 3 3 3 3 4 3 3 3 3 4 3 3 3 3 4 4 3 3 4 4 4 4 4 4 3 3 4 4 4 4 4 4 3 3 3 3 3 4 4 4 3 3 4 4 3 3 4 4 4 3 3 3 4 3 4 4 3 3 3 3 4 3 4 3 4 4 3 3 3 3 4 3 3 3 3 3 3 4 4 3 3 3 3 3 3 3 3 3 3 3 3 3 4 4 4 3 3 3 3 3 3 4 3 3 3 3 3 3 3 3 3 3 4 3 3 3 3 3 3 4 4 --------------------------------------------------------------------------------------------------------------- 0 1 2 3 4 5 6 7 8 0 0 0 0 0 0 0 0 0 --------------------------------------------------------------------------------- 1st card (Lists 1-10). 1 1000 10000 100000 100 420000 1200 13140 12000 1450 1900 2nd card (Lists 11-20). 1 360 900 36400 255 64800 384 45 254 40000 100000 3rd card (Lists 21-29). 1 3000 12000 200000 24 30000 200000 600 126000 60 Supplemental offsets. 1 800000 742 --------------------------------------------------------------------------------------------------------------- Normal termination of "VARDIM". LTLABL = 6832244 (the size of "LABCOM" in INTEGER words). C: libmingw>rename newmods.for *.f C: libmingw>rename dimdef.for *.f C: libmingw>dir newmods.* C windowsxp 34F2-FF6D C: libmingw 2002/03/22 16:31 9,569 newmods.f 1 9,569 0 49,260,539,904 C: libmingw>dir dimdef.* C windowsxp 34F2-FF6D C: libmingw 2002/03/22 16:31 2,386 dimdef.f 1 2,386 0 49,260,539,904
makec: libmingw>make g77 -c -O2 dimdef.f g77 -c -O2 newmods.f g77 -c -O2 comtac.f g77 -c -O2 fgnmod.f g77 -c -O2 usernl.f g77 -s -o tpbig.exe dimdef.o newmods.o comtac.o fgnmod.o usernl.o tpbig.a dislin.a -luser32 -lgdi32 -lcomdlg32 C: libmingw>
TPBIG.EXE c: libmingw runtp.bat Tpbig.exe RUNTP.BAT SET GNUDIR=k: DISTRIB SET GNUDIR=c: libmingw del %2dbg del %3lis tpbig %1 %2 %3 %4 %5 %6 DIR %2* DOS C: LIBMINGW>runtp hit6-3.dat PI Hit6-3.dat C: libmingw>runtp hit6-3.dat C: libmingw>set GNUDIR=c: libmingw C: libmingw>del dbg C: libmingw>del lis C: libmingw>tpbig hit6-3.dat ATP Started at 16:41:38 on Friday, 22 March 2002 EMTP begins. Send one of following alternatives. SPY, file_name, DISK, HELP, GO, KEY, STOP, BOTH, DIR: --- 31884 cards of disk file read into card cache cells 1 onward. That was just for next subcase. Remainder has N22 = 2 cards. MAXCRD = 80000 Note: Vardim input LISTSIZE.DAT could not be connected. Use maximum sizes. Alternative Transients Program (ATP), GNU Linux or DOS. All rights reserved by Can/Am user group of Portland, Oregon, USA. Date (dd-mth-yy) and time of day (hh.mm.ss) = 11-Nov-18 11.00.00 Name of disk plot file, if any, is Consult the 860-page ATP Rule Book of the Can/Am EMTP User Group in Portland, Oregon, USA. Source code date is Total size of LABCOM tables = 6702644 INTEGER words. VARDIM List Sizes follow : 1002 10K 100K 100 420K 1200
ATP(EMTP) F95 FORTRAN FORTRAN! FDTD MATLAB
listsize TPBIG.EXE /Mingw32 ATP(Alternative Transients Program)- EMTP How to make TPBIG.EXE which meet with the extended listsize Tsuyoshi Funaki (Handai)
1 listsize.hit6