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

remove call to non-portable FDATE() function (a GNU Fortran extension)

Browse Source
This commit is contained in:
Axel Kohlmeyer
2021-08-25 23:56:20 -04:00
parent 61855c5058
commit 9dd1dcab30
1 changed files with 1 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
lib/mesont/TubePotMono.f90
View File

@ -1674,8 +1674,7 @@ contains !**********************************************************************
read ( unit = TPMUnitID, fmt = '()' )
else
TPMUnitID = OpenFile ( TPMFile, 'wt', '' )
call fdate( PDate )
write ( unit = TPMUnitID, fmt = '(a,a)' ) 'DATE ', PDate
write ( unit = TPMUnitID, fmt = '(a,a)' ) 'DATE (unknown)'
write ( unit = TPMUnitID, fmt = '(a,i3,a,i3,a)' ) &
'Tabulated data of the tubular potential for (', ChiIndM, ',', ChiIndN, ') CNTs'
write ( unit = TPMUnitID, fmt = '(a)' ) &