--- trunk/libf/phylmd/readsulfate.f	2011/08/24 13:33:28	50
+++ trunk/libf/phylmd/readsulfate.f	2011/09/20 09:14:34	51
@@ -7,6 +7,7 @@
       use dimphy      
       use temps      
       use SUPHEC_M
+      use chem      
       IMPLICIT none
       
 c Content: 
@@ -34,7 +35,6 @@
 c      
 c Include-files:
 c --------------     
-      include "chem.h"      
 c 
 c Input:
 c ------
@@ -282,6 +282,7 @@
       use dimphy      
       use temps      
       use SUPHEC_M
+      use chem      
       IMPLICIT none
       
 c Content: 
@@ -305,7 +306,6 @@
 c      
 c Include-files:
 c --------------     
-      include "chem.h"      
 c 
 c Input:
 c ------