From 9dd1dcab30f77c8cc528d92b8213b01a750a2894 Mon Sep 17 00:00:00 2001 From: Axel Kohlmeyer Date: Wed, 25 Aug 2021 23:56:20 -0400 Subject: [PATCH] remove call to non-portable FDATE() function (a GNU Fortran extension) --- lib/mesont/TubePotMono.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/lib/mesont/TubePotMono.f90 b/lib/mesont/TubePotMono.f90 index fc66d15c65..f59c810e4f 100644 --- a/lib/mesont/TubePotMono.f90 +++ b/lib/mesont/TubePotMono.f90 @@ -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)' ) &