New changes from l2g

w
2022-09-12 16:40:28 +00:00
parent 78eb7147d0
commit d713d4f61a
110 changed files with 87672 additions and 1098 deletions
@@ -5,7 +5,8 @@
 !number. 
 !ierr=0, successful conversion
 !    =1, conversion failed
-      character astring*50,cpastring*(*),c*1,d*1
+      character(*)::cpastring
+      character astring*50,c*1,d*1
      double precision f,fsign,factor
      integer ipos1,ipos2,ideci,k,j,i,m,numchar0,
     &  numchar,ierr,ispartnum,nlength