Introduce dummy commons
authoralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 22 Dec 2000 13:33:36 +0000 (13:33 +0000)
committeralibrary <alibrary@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 22 Dec 2000 13:33:36 +0000 (13:33 +0000)
HIJING/dummyhijing.F

index 9605797..451628b 100644 (file)
@@ -1,4 +1,10 @@
       subroutine hijing
+      common /histrng/a
+      common /himain1/b
+      common /hiparnt/c
+      common /himain2/d
+      common /hijjet1/e
+      common /hijjet2/f
       end
 
       subroutine hijset
       subroutine rluset_hijing
       end
 
-      subroutine hijjet1
-      end
-
       subroutine hijjet2
       end
 
-      subroutine histrng
-      end
-
       subroutine himain
       end
 
-      subroutine himain1
-      end
-
-      subroutine himain2
-      end
-
-      subroutine hiparnt
-      end