5 |
#include "PACKAGES_CONFIG.h" |
#include "PACKAGES_CONFIG.h" |
6 |
#include "CTRL_CPPOPTIONS.h" |
#include "CTRL_CPPOPTIONS.h" |
7 |
|
|
8 |
subroutine admtlm_dsvd2model( first, mythid ) |
subroutine admtlm_dsvd2model( |
9 |
|
& first, postprocev, mythid ) |
10 |
|
|
11 |
c ================================================================== |
c ================================================================== |
12 |
c SUBROUTINE ctrl_unpack |
c SUBROUTINE ctrl_unpack |
62 |
c == routine arguments == |
c == routine arguments == |
63 |
|
|
64 |
logical first |
logical first |
65 |
|
logical postprocev |
66 |
integer mythid |
integer mythid |
67 |
|
|
68 |
#ifndef EXCLUDE_CTRL_PACK |
#ifndef EXCLUDE_CTRL_PACK |
114 |
nbuffGlobal = 0 |
nbuffGlobal = 0 |
115 |
|
|
116 |
cph-new( |
cph-new( |
117 |
yadprefix = 'g_' |
if ( postprocev ) then |
118 |
|
yadprefix = 'ev' |
119 |
|
else |
120 |
|
yadprefix = 'g_' |
121 |
|
endif |
122 |
nveccount = 0 |
nveccount = 0 |
123 |
cph-new) |
cph-new) |
124 |
|
|
185 |
|
|
186 |
#ifdef ALLOW_ADMTLM |
#ifdef ALLOW_ADMTLM |
187 |
|
|
188 |
write(cfile(1:128),'(a)') ' ' |
if (postprocev) then |
189 |
write(cfile,'(a,i4.4)') |
cph do a dummy read of initialized EV fields |
190 |
& 'admtlm_vector.it', optimcycle |
cph they will be overwritten by array phtmpadmtlm |
191 |
|
write(cfile(1:128),'(a)') ' ' |
192 |
|
write(cfile,'(a,i4.4)') |
193 |
|
& 'admtlm_eigen', optimcycle |
194 |
|
else |
195 |
|
write(cfile(1:128),'(a)') ' ' |
196 |
|
write(cfile,'(a,i4.4)') |
197 |
|
& 'admtlm_vector.it', optimcycle |
198 |
|
endif |
199 |
print *, 'ph-pack: unpacking ', cfile |
print *, 'ph-pack: unpacking ', cfile |
200 |
open( cunit, file = cfile, |
cph open( cunit, file = cfile, |
201 |
& status = 'old', |
cph & status = 'old', |
202 |
& form = 'unformatted', |
cph & form = 'unformatted', |
203 |
& access = 'sequential' ) |
cph & access = 'sequential' ) |
204 |
|
|
205 |
#else /* ndef ALLOW_ADMTLM */ |
#else /* ndef ALLOW_ADMTLM */ |
206 |
|
|