1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
Index: aces3-3.0.8/src/main/beta.F
===================================================================
--- aces3-3.0.8.orig/src/main/beta.F
+++ aces3-3.0.8/src/main/beta.F
@@ -530,7 +530,7 @@ c---------------------------------------
print *,'====>> SIAL_PROGRAM parameter is required.'
ierr = ierr + 1
else
- print *,'Next SIAL program: ',trim(sial_program)
+ print *,'Next SIAL program: ',sial_program(1:60)
endif
c--------------------------------------------------------------------------
@@ -887,7 +887,7 @@ c go to 333
endif
if (me .eq. 0) then
- WRITE(6,*) 'VFL NAME :', sial_program
+ WRITE(6,*) 'VFL NAME :', sial_program(1:60)
WRITE(6,*) 'VFL NAME :', dryrun
if (sial_program(1:10) .eq. 'scf_aguess') then
if (dryrun) then
@@ -1016,10 +1016,10 @@ c---------------------------------------
if (dryrun) then
if (istat .eq. 0) then
print *,'*** COMPLETED DRYRUN PASS FOR ',
- * sial_program
+ * sial_program(1:60)
else
print *,'*** FAILED IN DRYRUN FOR STEP ',
- * sial_program
+ * sial_program(1:60)
dryrun_abort = .true.
endif
call aces_ja_fin()
|
