My solution is:
ASSOCIATE (
V2B1_i=>V2A1((axon1%NnA(1:axon1%Nn-1)+1):(axon1%NnA(2:axon1%Nn)-1))), &
V3B1_i => V3B1((axon1%NnB(1:axon1%Nn-1)+1):(axon1%NnB(2:axon1%Nn))), &
.....
)
Then V3B1_i=V2B1_i
and so I hope to put elements of V2A1 on proper places in V3B1.
However ASSOCIATE is Fortran 2003 feature and i see no alternative. But it must be present. And more importantly it may be better.
|