--- trunk/phylmd/Radlwsw/swtt.f	2018/03/19 10:28:42	264
+++ trunk/phylmd/Radlwsw/swtt.f	2018/03/20 09:35:59	265
@@ -1,5 +1,5 @@
 SUBROUTINE swtt(knu, ka, pu, ptr)
-  USE dimens_m
+  USE dimensions
   USE dimphy
   USE raddim
   IMPLICIT NONE