彭国伦-Fortran90_95书中代码

彭国伦-Fortran90_95书中代码

【实例截图】

【核心代码】

src_pgl2

├── chap02
│   ├── hello.f90
│   └── hello.for
├── chap03
│   ├── ex0301.for
│   └── ex0302.f90
├── chap04
│   ├── ex0401.f90
│   ├── ex0402.f90
│   ├── ex0403.for
│   ├── ex0404.f90
│   ├── ex0405.f90
│   ├── ex0406.f90
│   ├── ex0407.f90
│   ├── ex0408.f90
│   ├── ex0408.for
│   ├── ex0409.f90
│   ├── ex0410.f90
│   ├── ex0411.f90
│   ├── ex0412.f90
│   ├── ex0413.f90
│   ├── ex0414.f90
│   ├── ex0415.f90
│   ├── ex0416.f90
│   ├── ex0417.f90
│   ├── ex0418.f90
│   ├── ex0419.f90
│   ├── ex0420.f90
│   ├── ex0420.for
│   ├── ex0421.f90
│   ├── ex0422.for
│   ├── ex0423.f90
│   ├── ex0424.f90
│   ├── ex0425.f90
│   ├── ex0426.f90
│   ├── ex0427.f90
│   ├── ex0428.f90
│   ├── ex0429.f90
│   ├── ex0430.f90
│   ├── ex0430.for
│   ├── ex0431.f90
│   ├── ex0432.f90
│   ├── ex0433.f90
│   ├── ex0434.f90
│   ├── ex0435.f90
│   └── ex0436.f90
├── chap05
│   ├── ex0501.f90
│   ├── ex0501.for
│   ├── ex0502.f90
│   ├── ex0503.f90
│   ├── ex0503.for
│   ├── ex0504.f90
│   ├── ex0505.f90
│   ├── ex0506.f90
│   ├── ex0507.f90
│   ├── ex0508.f90
│   ├── ex0509.f90
│   ├── ex0510.f90
│   ├── ex0511.f90
│   ├── ex0512.f90
│   ├── ex0513.f90
│   ├── ex0514.for
│   ├── ex0515.for
│   └── ex0516.for
├── chap06
│   ├── ex0601.f90
│   ├── ex0602.f90
│   ├── ex0602.for
│   ├── ex0603.f90
│   ├── ex0604.f90
│   ├── ex0605.f90
│   ├── ex0606.f90
│   ├── ex0607.f90
│   ├── ex0608.f90
│   ├── ex0609.f90
│   ├── ex0610.f90
│   ├── ex0611.f90
│   ├── ex0612.f90
│   ├── ex0613.f90
│   └── ex0614.f90
├── chap07
│   ├── ex0701.f90
│   ├── ex0702.f90
│   ├── ex0703.f90
│   ├── ex0704.f90
│   ├── ex0705.f90
│   ├── ex0706.f90
│   ├── ex0707.f90
│   ├── ex0708.f90
│   ├── ex0709.f90
│   ├── ex0710.f90
│   ├── ex0711.f90
│   ├── ex0712.f90
│   ├── ex0713.f90
│   ├── ex0714.f90
│   ├── ex0715.f90
│   ├── ex0716.f90
│   ├── ex0717.f90
│   ├── ex0718.f90
│   └── ex0719.f90
├── chap08
│   ├── TextGraphLib.f90
│   ├── ex0801.f90
│   ├── ex0802.f90
│   ├── ex0803.f90
│   ├── ex0804.f90
│   ├── ex0805.f90
│   ├── ex0806.f90
│   ├── ex0807.f90
│   ├── ex0808.f90
│   ├── ex0809.f90
│   ├── ex0810.f90
│   ├── ex0811.f90
│   ├── ex0812.f90
│   ├── ex0813.f90
│   ├── ex0814.f90
│   ├── ex0815.f90
│   ├── ex0816.f90
│   ├── ex0817.f90
│   ├── ex0818.f90
│   ├── ex0819.f90
│   ├── ex0820.f90
│   ├── ex0821.f90
│   ├── ex0822.f90
│   ├── ex0823.f90
│   ├── ex0824.f90
│   ├── ex0825.f90
│   ├── ex0826.f90
│   ├── ex0827.f90
│   ├── ex0827.opt
│   ├── ex0828.f90
│   ├── ex0829.f90
│   ├── ex0830.for
│   ├── ex0831.f90
│   ├── ex0832.f90
│   ├── ex0833.f90
│   ├── ex0834.f90
│   ├── ex0835.f90
│   ├── ex0836.f90
│   ├── ex0837.f90
│   ├── ex0838.f90
│   ├── ex0839.f90
│   ├── ex0840m.f90
│   ├── ex0840s.f90
│   ├── ex0841.f90
│   ├── ex0841.inc
│   ├── ex0842m.f90
│   ├── ex0842m.for
│   ├── ex0842s.f90
│   ├── ex0842s.for
│   ├── gdemo1.f90
│   ├── gdemo2.f90
│   └── gdemo3.f90
├── chap09
│   ├── data.txt
│   ├── encode1.txt
│   ├── encode2.txt
│   ├── ex0901.f90
│   ├── ex0902.f90
│   ├── ex0903.f90
│   ├── ex0904.f90
│   ├── ex0905.f90
│   ├── ex0906.f90
│   ├── ex0907.f90
│   ├── ex0908.f90
│   ├── ex0908dat.txt
│   ├── ex0909.f90
│   ├── ex0910.f90
│   ├── ex0911.f90
│   ├── ex0912.f90
│   ├── ex0913.f90
│   ├── ex0914.f90
│   ├── ex0915.f90
│   ├── ex0916.f90
│   ├── ex0917.f90
│   ├── ex0918.f90
│   ├── ex0919.f90
│   ├── ex0920.f90
│   ├── ex0921.f90
│   ├── ex0922.f90
│   ├── gendata.f90
│   ├── grades.bin
│   ├── grades.txt
│   ├── lena.raw
│   └── list.txt
├── chap10
│   ├── data1.txt
│   ├── data2.txt
│   ├── ex1001.f90
│   ├── ex1002.f90
│   ├── ex1003.f90
│   ├── ex1004.f90
│   ├── ex1005.f90
│   ├── ex1006.f90
│   ├── ex1007.f90
│   ├── ex1008.f90
│   ├── ex1009.f90
│   ├── ex1010.f90
│   ├── ex1011.f90
│   ├── ex1012.f90
│   ├── ex1013.f90
│   ├── ex1014.f90
│   ├── ex1015.f90
│   └── ex1016.f90
├── chap11
│   ├── ex1101.f90
│   ├── ex1102.f90
│   ├── ex1103.f90
│   ├── ex1104.f90
│   ├── ex1105.f90
│   ├── ex1106.f90
│   ├── ex1107.f90
│   ├── ex1108.f90
│   ├── ex1109.f90
│   └── ex1110.f90
├── chap12
│   ├── DelphiApp
│   │   ├── DelphiApp.cfg
│   │   ├── DelphiApp.dof
│   │   ├── DelphiApp.dpr
│   │   ├── DelphiApp.exe
│   │   ├── DelphiApp.res
│   │   ├── Unit1.dcu
│   │   ├── Unit1.ddp
│   │   ├── Unit1.dfm
│   │   ├── Unit1.pas
│   │   └── forlib.dll
│   ├── VBApp
│   │   ├── Form1.frm
│   │   ├── MSSCCPRJ.SCC
│   │   ├── VBApp.exe
│   │   ├── VBApp.vbp
│   │   ├── VBApp.vbw
│   │   └── forlib.dll
│   ├── ex1201s.f90
│   ├── ex1202c.cpp
│   ├── ex1202f.f90
│   ├── ex1203c.cpp
│   ├── ex1203f.f90
│   ├── ex1204c.cpp
│   ├── ex1204f.f90
│   ├── ex1205c.cpp
│   ├── ex1205f.f90
│   ├── ex1206c.cpp
│   ├── ex1206f.f90
│   ├── ex1207c.cpp
│   ├── ex1207f.f90
│   ├── ex1208c.cpp
│   ├── ex1208f.f90
│   └── forlib.f90
├── chap13
│   ├── 512x512.raw
│   ├── lena.raw
│   ├── play
│   │   ├── game.f90
│   │   ├── main.f90
│   │   ├── nutility.f90
│   │   ├── play.dsp
│   │   ├── play.dsw
│   │   ├── play.ncb
│   │   ├── play.opt
│   │   └── utility.f90
│   ├── sglFont1.f90
│   ├── sglFont2.f90
│   ├── sglbad.f90
│   ├── sgldemo1.f90
│   ├── sgldraw1.f90
│   ├── sgldraw2.f90
│   ├── sgldraw3.f90
│   ├── sgldraw4.f90
│   ├── sgldraw5.f90
│   ├── sglidle.f90
│   ├── sglimg.f90
│   ├── sglimg1.f90
│   ├── sglimg2.f90
│   ├── sglimg3.f90
│   ├── sglimg4.f90
│   ├── sglimg5.f90
│   ├── sglimg6.f90
│   ├── sgltimer.f90
│   ├── sglui1.f90
│   ├── sglui2.f90
│   ├── sglui3.f90
│   ├── tetris
│   │   ├── game.f90
│   │   ├── global.f90
│   │   ├── main.f90
│   │   ├── tetris.dsp
│   │   ├── tetris.dsw
│   │   ├── tetris.ncb
│   │   ├── tetris.opt
│   │   ├── tetris.plg
│   │   └── utility.f90
│   └── ufo.raw
├── chap14
│   ├── bisect.f90
│   ├── bisect0.f90
│   ├── determinant.f90
│   ├── gauss2.f90
│   ├── gauss_jordan.f90
│   ├── inverse.f90
│   ├── lagrange.f90
│   ├── least_square.f90
│   ├── matmul.for
│   ├── newton.f90
│   ├── newton_forward.f90
│   ├── secant.f90
│   ├── simpson.f90
│   ├── trape.f90
│   └── upperlower.f90
├── chap15
│   ├── bvpfd1.f90
│   ├── bvpms.f90
│   ├── csiez.f90
│   ├── csint.f90
│   ├── deriv.f90
│   ├── eigen.f90
│   ├── fnlsq.f90
│   ├── ivmrk.f90
│   ├── ivpag.f90
│   ├── ivprk.f90
│   ├── linear.f90
│   ├── matrix_operator.f90
│   ├── neqnf.f90
│   ├── qand.f90
│   ├── qdagi.f90
│   ├── qdagp.f90
│   ├── qdags.f90
│   ├── rcurv.f90
│   ├── rline.f90
│   ├── twodq.f90
│   ├── zanly.f90
│   ├── zbren.f90
│   ├── zplrc.f90
│   └── zreal.f90
├── chap16
│   ├── bsearch.f90
│   ├── bsort.f90
│   ├── btree.f90
│   ├── hash.f90
│   ├── hash2.f90
│   ├── hash3.f90
│   ├── knight.f90
│   ├── quick_sort.f90
│   ├── selsort.f90
│   ├── shell_sort.f90
│   ├── ssearch.f90
│   └── stack.f90
└── chap17
    ├── dialog
    │   ├── DIALOG.F90
    │   ├── DIALOG.OPT
    │   ├── DIALOG.PLG
    │   ├── RESOURCE.APS
    │   ├── RESOURCE.FD
    │   ├── RESOURCE.H
    │   ├── RESOURCE.RC
    │   └── dialog.ncb
    ├── dialog2
    │   ├── DIALOG2.PLG
    │   ├── RESOURCE.APS
    │   ├── RESOURCE.FD
    │   ├── RESOURCE.H
    │   ├── RESOURCE.RC
    │   ├── SETCOLOR.F90
    │   ├── dialog2.dsp
    │   ├── dialog2.dsw
    │   ├── dialog2.ncb
    │   └── dialog2.opt
    ├── input
    │   ├── input.dsp
    │   ├── input.dsw
    │   ├── input.f90
    │   ├── input.ncb
    │   ├── input.opt
    │   └── input.plg
    ├── menu
    │   ├── menu.dsp
    │   ├── menu.dsw
    │   ├── menu.f90
    │   ├── menu.ncb
    │   ├── menu.opt
    │   └── menu.plg
    ├── mouse
    │   ├── mouse.dsp
    │   ├── mouse.dsw
    │   ├── mouse.f90
    │   ├── mouse.ncb
    │   └── mouse.plg
    ├── plot
    │   ├── plot.dsp
    │   ├── plot.dsw
    │   ├── plot.f90
    │   ├── plot.ncb
    │   ├── plot.opt
    │   └── plot.plg
    ├── qsort.f90
    └── sin
        ├── sin.dsp
        ├── sin.dsw
        ├── sin.f90
        ├── sin.ncb
        └── sin.plg

27 directories, 377 files