From b90442c84dc142276d86078c6916eb5c41f9c214 Mon Sep 17 00:00:00 2001
From: caremoli <caremoli>
Date: Thu, 4 Nov 2010 16:28:51 +0000
Subject: [PATCH] CCAR: small fix in Aster example

---
 Examples/ast2/myaster/src/op0189.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Examples/ast2/myaster/src/op0189.f b/Examples/ast2/myaster/src/op0189.f
index 9c669bd..79bc96f 100644
--- a/Examples/ast2/myaster/src/op0189.f
+++ b/Examples/ast2/myaster/src/op0189.f
@@ -62,9 +62,9 @@ C
       COMMON/YACS/IFL
       include 'calcium.hf'
       real*8 tt,tp,t0,t1,ss,zz
-      real yr
+      real*4 yr
       CHARACTER*8 tch(2)
-      real tcp(2)
+      real*4 tcp(2)
       integer*4 tlo(3)
 
       write(6,*) '--> OP196 '
-- 
2.39.2