File indexing completed on 2018-03-02 18:41:55 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
ffa487b126 Alis*0001 #include "MDSIO_OPTIONS.h"
0002
700e908e2a Jean*0003 SUBROUTINE MDS_SEG4toRS( j,bi,bj,k,nNz, seg, copyTo, arr )
0004
ffa487b126 Alis*0005
700e908e2a Jean*0006
0007
0008
ffa487b126 Alis*0009
700e908e2a Jean*0010
ffa487b126 Alis*0011
0012
0013
700e908e2a Jean*0014 IMPLICIT NONE
ffa487b126 Alis*0015
0016 #include "SIZE.h"
0017
0018
700e908e2a Jean*0019 INTEGER j,bi,bj,k,nNz
ffa487b126 Alis*0020 _RS arr(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nNz,nSx,nSy)
700e908e2a Jean*0021 LOGICAL copyTo
ffa487b126 Alis*0022 Real*4 seg(sNx)
0023
700e908e2a Jean*0024 INTEGER ii
ffa487b126 Alis*0025
700e908e2a Jean*0026 IF (copyTo) THEN
0027 DO ii=1,sNx
ffa487b126 Alis*0028 arr(ii,j,k,bi,bj)=seg(ii)
700e908e2a Jean*0029 ENDDO
0030 ELSE
0031 DO ii=1,sNx
ffa487b126 Alis*0032 seg(ii)=arr(ii,j,k,bi,bj)
700e908e2a Jean*0033 ENDDO
0034 ENDIF
ffa487b126 Alis*0035
700e908e2a Jean*0036 RETURN
0037 END