mod_gauss.F90 File Reference

Go to the source code of this file.

Modules
module	mod_gauss
Variables
INTEGER(kind=ip_intwp_p), dimension(16), parameter	mod_gauss::ninip16 = (/20,30,40,48,54,60,64,64,64,64,64,64,64,64,64,64/)
INTEGER(kind=ip_intwp_p), dimension(24), parameter	mod_gauss::ninip24 = (/20,30,40,48,54,60,64,64,64,64,64,64,64,64,64,64, 96,96,96,96,96,96,96,96/)
INTEGER(kind=ip_intwp_p), dimension(32), parameter	mod_gauss::ninip32 = (/20,30,40,48,48,54,54,64,72,80,80,90,96,100, 108,108,120,120,120,128,128,128,128,128, 128,128,128,128,128,128,128,128/)
INTEGER(kind=ip_intwp_p), dimension(48), parameter	mod_gauss::ninip48 = (/16, 16, 18, 24, 30, 36, 48, 48, 54, 60, 72, 72, 80, 90, 90 ,96,100,108,120,120,128,128,144,144,144,144,150,160,160,160 ,162,180,180,180,180,180,180,192,192,192,192,192,192,192,192 ,192,192,192/)
INTEGER(kind=ip_intwp_p), dimension(80), parameter	mod_gauss::ninip80 = (/16, 16, 18, 24, 30, 36, 48, 50, 60, 64, 72, 80, 80, 90, 96 ,100,108,120,120,128,128,144,144, 144,150,160,162,180,180,180 ,192,192,192,200,216,216,216,216, 240,240,240,240,240,250,250 ,250,256,270,270,270,270,288,288, 288,288,288,288,300,300,300 ,300,300,320,320,320,320,320,320, 320,320,320,320,320,320,320 ,320,320,320,320,320/)
INTEGER(kind=ip_intwp_p), dimension(160), parameter	mod_gauss::ninip160 = (/18, 25, 36, 40, 45, 50, 60, 64, 72, 72, 80, 90, 90, 96,108 ,120,120,125,128,135,144,150,160,160,180,180,180,192,192,200 ,216,216,225,225,240,240,243,250,256,270,270,288,288,288,300 ,300,320,320,320,320,324,360,360,360,360,360,360,375,375,375 ,384,384,400,400,400,405,432,432,432,432,432,450,450,450,450 ,480,480,480,480,480,480,480,500,500,500,500,500,512,512,540 ,540,540,540,540,540,540,540,576,576,576,576,576,576,576,576 ,576,576,600,600,600,600,600,600,600,600,600,640,640,640,640 ,640,640,640,640,640,640,640,640,640,640,640,640,640,640,640 ,640,640,640,640,640,640,640,640,640,640,640,640,640,640,640 ,640,640,640,640,640,640,640,640,640,640/)
INTEGER(kind=ip_intwp_p), parameter	mod_gauss::nredu16 = 1784
INTEGER(kind=ip_intwp_p), parameter	mod_gauss::nredu24 = 3320
INTEGER(kind=ip_intwp_p), parameter	mod_gauss::nredu32 = 6232
INTEGER(kind=ip_intwp_p), parameter	mod_gauss::nredu48 = 12228
INTEGER(kind=ip_intwp_p), parameter	mod_gauss::nredu80 = 23444
INTEGER(kind=ip_intwp_p), parameter	mod_gauss::nredu160 = 138346
REAL(kind=ip_realwp_p), parameter	mod_gauss::amskred = 9999999.0