All for (23)
... published by the Free Software Foundation either version 2 of C the License or at your option any later version C C The author does NOT admit liability nor provide warranty for any C of this software This material is provided AS IS in the hope C that it may be useful for others C C C PROGRAM SiGOGprcs C C C...
.forhttp://alt.ngs.noaa.gov/gps-toolbox/Mohino/SIGOGprcs.for
... published by the Free Software Foundation either version 2 of C the License or at your option any later version C C The author does NOT admit liability nor provide warranty for any C of this software This material is provided AS IS in the hope C that it may be useful for others C C C PROGRAM SiGOGbcst C C C...
.forhttp://alt.ngs.noaa.gov/gps-toolbox/Mohino/SIGOGbcst.for
... X1 X2 WRITE 2 2 FORMAT PLEASE SPECIFY NOW THE NUMBER OF WEIGHTS ABSCISSAE VALUES RESPECTIVELY YOU NEED CURRENT MAXIMUM 200 READ N WRITE 3 3 FORMAT PLEASE SPECIFY NOW THE A LEVEL OF PRECISION 3 0D 17 WILL GIVE YOU ROUGHLY 16 DIGITS I E DOUBLE PRECISION READ CALL GAULEG X1 X2 X W N EPS WRITE 4 4 FORMAT...
.forhttp://ftp.aset.psu.edu/pub/ger/fortran/hdk/gauss.for
... X1 X2 WRITE 2 2 FORMAT PLEASE SPECIFY NOW THE NUMBER OF WEIGHTS ABSCISSAE VALUES RESPECTIVELY YOU NEED CURRENT MAXIMUM 200 READ N WRITE 3 3 FORMAT PLEASE SPECIFY NOW THE A LEVEL OF PRECISION 3 0D 17 WILL GIVE YOU ROUGHLY 16 DIGITS I E DOUBLE PRECISION READ CALL GAULEG X1 X2 X W N EPS WRITE 4 4 FORMAT...
.forhttp://ftp.cac.psu.edu/pub/ger/fortran/hdk/gauss.for
... other sort of file C READ 1 101 LINE DO 1 I 0 73 READ LINE 102 TEST7 102 FORMAT I X A7 IF TEST7 EQ LLLLLLL GOTO2 1 CONTINUE C C If we get to here there s no header in the file C so get the last used one from the ini file C OPEN UNIT 2 NAME INIFILE ERR 91 STATUS OLD READ 2 101 LINE CLOSE 2 C C Now start...
.forhttp://crack.seismo.unr.edu/ftp/pub/louie/rg/self-parsing.for
...Important Newsflash 13921 S2 CP M 80 05 Jul 93 23 04 03 Sb New files Fm John Deakin 76702 310 To All Following files are now available Lib 1 71071 2353 Mike Finn PACS CP M New Upload 12 47 38 PDT LIBSRC LZH Bin Bytes 80896 Count 0 05 Jul 93 Title Hi Tech Software CP M Z80 C Compiler Source Keywords...
.for...p://www.iee.et.tu-dresden.de/~kc-club/DOWNLOAD/DISK263/HITECH.FOR
... to each of the nearest neighbors Using a sinc c PSF each new sample is best construed as a local sample of a c continuous function that has been low pass filtered so that it c contains now power in spatial frequencies higher than the Nyquist c frequency Note that the program runs fastest for a boxcar PSF...
.forhttp://pds-rings.seti.org/toolkits/profile_13/examples/ppsfilt.for
... sample of a c continuous function that has been low pass filtered so that it c contains now power in spatial frequencies higher than the Nyquist c frequency Note that the program runs fastest for a boxcar PSF and c perhaps 10 times slower for a sinc PSF c 7 Output file name c Outputs c A resampled ring...
.forhttp://pds-rings.seti.org/toolkits/profile_13/examples/ppsresam.for
... Columbia University Center for Computing Activities C June 1984 Revised September 1984 C INTEGER LINE 77 ACK 4 CHECK OK SPACE COMMA WRITE 6 100 100 FORMAT Ready to transfer data now run MSPCBOOT BAS on the PC C Get characters for constants character constants are rough in C some FORTRANs READ 5 200 OK...
.forhttp://kermit.columbia.edu/ftp/a/msboot.for
... TSWAP 0 C NOW LOOK UP NPTS POINTS IN THE HASH TABLE C THE ORDERED HASH IS MORE EFFICIENT FOR UNSUCCESSFUL SEARCHES DO 20 I 1 NPTS CALL ORHASH NCELL RNDSEQ I 1 NSTAT NPROBE NSWAP IF NSTAT NE 3 TFOUND TFOUND 1 TSWAP TSWAP NSWAP TPROBE TPROBE NPROBE 20 CONTINUE WRITE 6 600 NPTS TFOUND TPROBE TSWAP STOP 600...
.forhttp://ftp.aset.psu.edu/pub/ger/fortran/hdk/hashord.for