OpenMCTDHB: moduleparameters.F90 Source File

Go to the documentation of this file.
00001 !---------------------------------------------------------------
00007 MODULE moduleparameters
00008 IMPLICIT NONE
00009 
00010 REAL*8, PARAMETER       :: PI=3.1415926535897932D0
00011 REAL*8,PARAMETER        :: ZERO_R = 0.0D0
00012 REAL*8,PARAMETER        :: ONE_R =  1.0D0
00013 COMPLEX*16, PARAMETER   :: ZERO=(ZERO_R,ZERO_R)
00014 COMPLEX*16, PARAMETER   :: ZONER=(ONE_R, ZERO_R)
00015 COMPLEX*16, PARAMETER   :: ZONEI=(ZERO_R,ONE_R)
00016 
00017 
00018 INTEGER,PARAMETER  :: SILmaxIntOrder   = 20
00019 
00020 !---------------------------------------------------------------
00021 
00022 INTEGER,PARAMETER  :: ABMIntOrder      = 8 ! >=3 and <=8 
00023 LOGICAL,PARAMETER  :: restartABM       =.true.
00024 
00025 END MODULE moduleparameters