It doesn't do anything hugely useful, but it was a grat help to me in learning how to use DISLIN with SF.Lastly, for program development, if you are accustomed only to Fortran for DOS then you are in for a hell of a treat.
It is given away free by the author's generosity, for non-commercial use, and it is totally superb.To solve your problem with your program not finding your input files, you can use the DISLIN statements, USE DISLIN nad CALL DWGFIL, as shown below.THis brings up a Win Doze dilename requester dialog, in which you can enter a pathname by mouse-clicking.USE DISLIN! At start of your code::CALL DWGFIL('INPUT file name', FiNAME, '.IN.' )IF ( LENTRIM(FiNAME).GT.0 ) THENC User has entered an input file nameC So attempt to open itOPEN(UNIT=LUI,+ FILE=FiNAME,+ STATUS='OLD',+ ERR=50,+ IOSTAT=IOCODE )C No ERR, so say so and set file-opened return value of LUIC CALL DISP(0,FiNAME//' opened.' ,LEN(FiNAME)+8,0)WRITE(LUS,'(' Input file opened:'/' ',A)') FiNAMELUI=LUISETGO TO 6050 CONTINUEC Input filename entered but file not found and/or not openedC Return a request to open the same filename as an echo fileC Set return value of LUI to LUK because input file-not-openedWRITE(LUS,'(' Error code ',I4,'.' ,$)') IOCODEELSEC User has not entered an input filenameLUI=LUK60 END IFI give at the end of this post the source code for a program I wrote as a DISLIN learning exercise. Simply Fortran 3.23 released: - 4 months ago Simply Fortran 3.22 released: - 5 months ago Simply Fortran 3.21 released: - 7 months ago Simply Fortran 3.20 released: - 9 months ago Simply Fortran 3.19 released: - 1 year ago Simply Fortran 3.18 released: - 1 year ago.
0 kommentar(er)
