fix extern name

dpo · dpo · commit 4a0d4a19f5e3 · 2020-01-14T10:49:50.000-05:00
diff --git a/double/dsafescal.F b/double/dsafescal.F
@@ -28,7 +28,7 @@ subroutine dsafescal(n,alpha,x)
 c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
-      external dscal,dlascl
+      external pdscal,dlascl
 
 c     %--------------------%
 c     | External Functions |
diff --git a/single/ssafescal.F b/single/ssafescal.F
@@ -28,7 +28,7 @@ subroutine ssafescal(n,alpha,x)
 c     %----------------------%
 c     | External Subroutines |
 c     %----------------------%
-      external sscal,slascl
+      external psscal,slascl
 
 c     %--------------------%
 c     | External Functions |
