Using DATA to initialize a value
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 16 Oct 2008 13:58:33 +0000 (13:58 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Thu, 16 Oct 2008 13:58:33 +0000 (13:58 +0000)
LHAPDF/lhapdf5.5.1/src/wrapsmrspi.f

index cf29cc8..eb6fe6d 100644 (file)
@@ -16,7 +16,8 @@
       integer nmem(nmxset),ndef(nmxset),mmem 
       common/NAME/name,nmem,ndef,mmem 
       integer nset 
-      integer initread/0/ 
+      integer initread
+      DATA initread/0/ 
       save 
                                                                         
       call getnset(iset)