ICODE-ADC/lammps
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

modernize Fortran

Browse Source
This commit is contained in:
Axel Kohlmeyer
2021-08-25 23:42:07 -04:00
parent fe4ec9d1ea
commit 45e599cb33
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/mesont/TubePotMono.f90
View File

@ -72,7 +72,7 @@ implicit none
!---------------------------------------------------------------------------------------------------
integer(c_int) :: TPMStartMode = 1
character*512 :: TPMFile = 'MESONT-TABTP.xrs'
character(len=512) :: TPMFile = 'MESONT-TABTP.xrs'
integer(c_int) :: TPMUnitID ! Unit for the tabulated potential file
integer(c_int) :: TPMNZ = TPMNZMAX
@ -1643,7 +1643,7 @@ contains !**********************************************************************
subroutine TPMInit ( ChiIndM, ChiIndN ) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
integer(c_int), intent(in) :: ChiIndM, ChiIndN
real(c_double) :: RT, DX
character*512 :: PDate
character(len=512) :: PDate
!-------------------------------------------------------------------------------------------
TPPotType = TP_POT_MONO_R