131 |
endif |
endif |
132 |
|
|
133 |
|
|
134 |
|
* @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@ |
135 |
|
* |
136 |
|
* EV may 2014 ==> SKIP NUCLEI PATCH |
137 |
|
* (done differently...) |
138 |
|
* |
139 |
|
* @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@ |
140 |
|
goto 7575 |
141 |
|
|
142 |
|
|
143 |
* //////////////////////////////////////////////// |
* //////////////////////////////////////////////// |
144 |
* PATCH to recover nuclei |
* PATCH to recover nuclei |
145 |
* //////////////////////////////////////////////// |
* //////////////////////////////////////////////// |
233 |
RECOVER_NUCLEI = .false. |
RECOVER_NUCLEI = .false. |
234 |
endif |
endif |
235 |
|
|
236 |
|
* @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@ |
237 |
|
7575 continue |
238 |
|
* @~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@~@ |
239 |
|
|
240 |
if(ntrk.eq.0)goto 880 |
if(ntrk.eq.0)goto 880 |
241 |
|
|
242 |
* ///////////////////////////////////////////////////// |
* ///////////////////////////////////////////////////// |