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
@@ -4,7 +4,8 @@
      implicit none
      integer nmax,n
      double precision vars(nmax+100)
-      character longchar*(*),astring*50,c*1
+      character(*)::longchar
+      character astring*50,c*1
      integer i,pos1,pos2,ispartnum,leng,numchar,ierr
 !
      n=0