-
Notifications
You must be signed in to change notification settings - Fork 2
/
globvar.f90
executable file
·25 lines (25 loc) · 1.1 KB
/
globvar.f90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
!*******************************************************************************
MODULE globvar
! dummy module
!===============================================================================
! Global variables
!-------------------------------------------------------------------------------
! variables passed to external program
! INTEGER :: nhex
! INTEGER :: nvar
! INTEGER :: nk
! REAL(8) :: refrac
!
! INTEGER, ALLOCATABLE :: nmk2index(:,:,:) !(2,nhex,nk)
! REAL(8), ALLOCATABLE :: Rnk(:,:,:,:,:) !(2,nhex,2,nhex,nk)
!!-------------------------------------------------------------------------------
!! variables passed to function sm(t)
! INTEGER :: nt
! REAL(8), ALLOCATABLE :: times(:) !(nt)
! REAL(8), ALLOCATABLE :: Smt !(4,nt)
!!-------------------------------------------------------------------------------
!! variables passed to fk(t)
! REAL(8), ALLOCATABLE :: fkt(:,:,:,:) !(2,nhex,nk,nt)
!
END MODULE globvar
!*******************************************************************************