graffy
/
crosadiab
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed np_f=119 because there are 119 lines in fort.<nnnn> files

This commit is contained in:
Guillaume Raffy 2023-06-05 14:35:51 +02:00
parent e8f9f8541c
commit 8fb811dd96
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cs_adiabats_2.f
View File

@ -10,7 +10,7 @@
implicit none implicit none
integer, parameter :: np_f=102 !number of points for function, input integer, parameter :: np_f=119 !number of points for function, input
! integer, parameter :: nps=10000 !number of points we work with in the splint subroutine. ! integer, parameter :: nps=10000 !number of points we work with in the splint subroutine.
integer, parameter :: nlevtot=176 ! number of levels, some appear multiple times integer, parameter :: nlevtot=176 ! number of levels, some appear multiple times
integer, parameter :: npar=2 ! number of parities from molscat integer, parameter :: npar=2 ! number of parities from molscat
@ -73,7 +73,9 @@
allocate(func(np_f,nf)) allocate(func(np_f,nf))
! allocate(proba(nf)) ! allocate(proba(nf))
write(6,*) 'idx_p1 = ', idx_p1
do i=np_f,1,-1 ! read in reverse to start from Rmax do i=np_f,1,-1 ! read in reverse to start from Rmax
write(6,*) 'i = ', i
read(idx_p1,*) R(i),(func(i,j),j=1,nf) read(idx_p1,*) R(i),(func(i,j),j=1,nf)
! write(6,*) 'R(', i, ') = ', R(i) ! write(6,*) 'R(', i, ') = ', R(i)
! write(6,*) 'func( ', i,',nf=', nf,') = ', func(i,nf) ! write(6,*) 'func( ', i,',nf=', nf,') = ', func(i,nf)