--- trunk/libf/phylmd/readsulfate.f	2011/01/06 17:52:19	38
+++ trunk/libf/phylmd/readsulfate.f	2011/09/23 12:28:01	52
@@ -7,6 +7,7 @@
       use dimphy      
       use temps      
       use SUPHEC_M
+      use chem      
       IMPLICIT none
       
 c Content: 
@@ -32,9 +33,6 @@
 c 20/08/01: Correct the error through integer-values in interpolations      
 c 21/08/01: Introduce flag to read in just one decade
 c      
-c Include-files:
-c --------------     
-      include "chem.h"      
 c 
 c Input:
 c ------
@@ -282,6 +280,7 @@
       use dimphy      
       use temps      
       use SUPHEC_M
+      use chem      
       IMPLICIT none
       
 c Content: 
@@ -303,9 +302,6 @@
 c --------------
 c see above 
 c      
-c Include-files:
-c --------------     
-      include "chem.h"      
 c 
 c Input:
 c ------