/[MITgcm]/MITgcm/model/src/plot_field.F
ViewVC logotype

Diff of /MITgcm/model/src/plot_field.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.13 by cnh, Wed Sep 26 18:09:16 2001 UTC revision 1.14 by heimbach, Thu Feb 7 20:00:09 2002 UTC
# Line 10  C--    o plot_field_xyrs  - Writes a XY Line 10  C--    o plot_field_xyrs  - Writes a XY
10  C--    o plot_field_xyrl  - Writes a XY  _RL field  C--    o plot_field_xyrl  - Writes a XY  _RL field
11  C--    o plot_field_xyzrs - Writes a XYZ _RS field  C--    o plot_field_xyzrs - Writes a XYZ _RS field
12  C--    o plot_field_xyzrl - Writes a XYZ _RL field  C--    o plot_field_xyzrl - Writes a XYZ _RL field
 CBOP  
 C     !ROUTINE: PLOT_FIELD_XYRS  
 C     !INTERFACE:  
13        SUBROUTINE PLOT_FIELD_XYRS(        SUBROUTINE PLOT_FIELD_XYRS(
14       I                            fld, fldNam , myIter, myThid )       I                            fld, fldNam , myIter, myThid )
15    
16  C     !DESCRIPTION: \bv  C     /==========================================================\
17  C     *==========================================================*  C     | SUBROUTINE PLOT_FIELD_XYRS                               |
18  C     | SUBROUTINE PLOT_FIELD_XYRS                                  C     | Print out an XY _RS field using text map.                |
19  C     | Print out an XY _RS field using text map.                  C     |==========================================================|
20  C     *==========================================================*  C     | This routine references "numerical model" parameters like|
21  C     | This routine references "numerical model" parameters like  C     | like the integration time. It uses these to create a     |
22  C     | like the integration time. It uses these to create a        C     | title for the field before calling a generic execution   |
23  C     | title for the field before calling a generic execution      C     | environment support routine.                             |
24  C     | environment support routine.                                C     | This routine can also be edited to cause only some region|
25  C     | This routine can also be edited to cause only some region  C     | of a field to be printed by default, or every other      |
26  C     | of a field to be printed by default, or every other        C     | point etc..                                              |
27  C     | point etc..                                                C     | Other plot formats can also be substituted here.         |
28  C     | Other plot formats can also be substituted here.            C     | _RS is usually REAL*4                                    |
29  C     | _RS is usually REAL*4                                      C     \==========================================================/
 C     *==========================================================*  
 C     \ev  
   
 C     !USES:  
30        IMPLICIT NONE        IMPLICIT NONE
31    
32  #include "SIZE.h"  #include "SIZE.h"
33  #include "EEPARAMS.h"  #include "EEPARAMS.h"
34  #include "PARAMS.h"  #include "PARAMS.h"
35    
 C     !INPUT/OUTPUT PARAMETERS:  
36  C     == Routine arguments ==  C     == Routine arguments ==
37  C     fld - Field to plot  C     fld - Field to plot
38  C     fldNam - Name of field  C     fldNam - Name of field
# Line 50  C     myThid - Thread id of thread insta Line 43  C     myThid - Thread id of thread insta
43        INTEGER myThid        INTEGER myThid
44        INTEGER myIter        INTEGER myIter
45    
 C     !LOCAL VARIABLES:  
46  C     == Local variables ==  C     == Local variables ==
47        CHARACTER*(MAX_LEN_MBUF) fldTitle        CHARACTER*(MAX_LEN_MBUF) fldTitle
48        INTEGER iStart, iEnd, iStride        INTEGER iStart, iEnd, iStride
# Line 58  C     == Local variables == Line 50  C     == Local variables ==
50        INTEGER kStart, kEnd, kStride        INTEGER kStart, kEnd, kStride
51        INTEGER biStart, biEnd, biStride        INTEGER biStart, biEnd, biStride
52        INTEGER bjStart, bjEnd, bjStride        INTEGER bjStart, bjEnd, bjStride
 CEOP  
53    
54  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
55  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
# Line 102  C      Substitute other plotting utiliti Line 93  C      Substitute other plotting utiliti
93    
94        RETURN        RETURN
95        END        END
   
 CBOP  
 C     !ROUTINE: PLOT_FIELD_XYRL  
 C     !INTERFACE:  
96        SUBROUTINE PLOT_FIELD_XYRL(        SUBROUTINE PLOT_FIELD_XYRL(
97       I                            fld, fldNam , myIter, myThid )       I                            fld, fldNam , myIter, myThid )
98    
99  C     !DESCRIPTION: \bv  C     /==========================================================\
100  C     *==========================================================*  C     | SUBROUTINE PLOT_FIELD_XYRL                               |
101  C     | SUBROUTINE PLOT_FIELD_XYRL                                  C     | Print out an XY _RL field using text map.                |
102  C     | Print out an XY _RL field using text map.                  C     |==========================================================|
103  C     *==========================================================*  C     | This routine references "numerical model" parameters like|
104  C     | This routine references "numerical model" parameters like  C     | like the integration time. It uses these to create a     |
105  C     | like the integration time. It uses these to create a        C     | title for the field before calling a generic execution   |
106  C     | title for the field before calling a generic execution      C     | environment support routine.                             |
107  C     | environment support routine.                                C     | This routine can also be edited to cause only some region|
108  C     | This routine can also be edited to cause only some region  C     | of a field to be printed by default, or every other      |
109  C     | of a field to be printed by default, or every other        C     | point etc..                                              |
110  C     | point etc..                                                C     | Other plot formats can also be substituted here.         |
111  C     | Other plot formats can also be substituted here.            C     | _RL is usually REAL*8                                    |
112  C     | _RL is usually REAL*8                                      C     \==========================================================/
 C     *==========================================================*  
 C     \ev  
   
 C     !USES:  
113        IMPLICIT NONE        IMPLICIT NONE
114    
115  #include "SIZE.h"  #include "SIZE.h"
116  #include "EEPARAMS.h"  #include "EEPARAMS.h"
117  #include "PARAMS.h"  #include "PARAMS.h"
118    
 C     !INPUT/OUTPUT PARAMETERS:  
119  C     == Routine arguments ==  C     == Routine arguments ==
120  C     fld - Field to plot  C     fld - Field to plot
121  C     fldNam - Name of field  C     fldNam - Name of field
# Line 143  C     myThid - Thread id of thread insta Line 126  C     myThid - Thread id of thread insta
126        INTEGER myThid        INTEGER myThid
127        INTEGER myIter        INTEGER myIter
128    
 C     !LOCAL VARIABLES:  
129  C     == Local variables ==  C     == Local variables ==
130        CHARACTER*(MAX_LEN_MBUF) fldTitle        CHARACTER*(MAX_LEN_MBUF) fldTitle
131        INTEGER iStart, iEnd, iStride        INTEGER iStart, iEnd, iStride
# Line 151  C     == Local variables == Line 133  C     == Local variables ==
133        INTEGER kStart, kEnd, kStride        INTEGER kStart, kEnd, kStride
134        INTEGER biStart, biEnd, biStride        INTEGER biStart, biEnd, biStride
135        INTEGER bjStart, bjEnd, bjStride        INTEGER bjStart, bjEnd, bjStride
 CBOP  
136    
137  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
138  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
# Line 195  C      Substitute other plotting utiliti Line 176  C      Substitute other plotting utiliti
176    
177        RETURN        RETURN
178        END        END
 CBOP  
 C     !ROUTINE: PLOT_FIELD_XYZRS  
 C     !INTERFACE:  
179        SUBROUTINE PLOT_FIELD_XYZRS(        SUBROUTINE PLOT_FIELD_XYZRS(
180       I                            fld, fldNam , fldNz, myIter, myThid )       I                            fld, fldNam , fldNz, myIter, myThid )
181    
182  C     !DESCRIPTION: \bv  C     /==========================================================\
183  C     *==========================================================*  C     | SUBROUTINE PLOT_FIELD_XYZR4                              |
184  C     | SUBROUTINE PLOT_FIELD_XYZR4                                C     | Print out an XYZ _RS field using text map.               |
185  C     | Print out an XYZ _RS field using text map.                  C     |==========================================================|
186  C     *==========================================================*  C     | This routine references "numerical model" parameters like|
187  C     | This routine references "numerical model" parameters like  C     | like the integration time. It uses these to create a     |
188  C     | like the integration time. It uses these to create a        C     | title for the field before calling a generic execution   |
189  C     | title for the field before calling a generic execution      C     | environment support routine.                             |
190  C     | environment support routine.                                C     | This routine can also be edited to cause only some region|
191  C     | This routine can also be edited to cause only some region  C     | of a field to be printed by default, or every other      |
192  C     | of a field to be printed by default, or every other        C     | point etc..                                              |
193  C     | point etc..                                                C     | Other plot formats can also be substituted here.         |
194  C     | Other plot formats can also be substituted here.            C     | _RS is usually a REAL*4 field                            |
195  C     | _RS is usually a REAL*4 field                              C     \==========================================================/
 C     *==========================================================*  
 C     \ev  
   
 C     !USES:  
196        IMPLICIT NONE        IMPLICIT NONE
197    
198  #include "SIZE.h"  #include "SIZE.h"
199  #include "EEPARAMS.h"  #include "EEPARAMS.h"
200  #include "PARAMS.h"  #include "PARAMS.h"
201    
 C     !INPUT/OUTPUT PARAMETERS:  
202  C     == Routine arguments ==  C     == Routine arguments ==
203  C     fld - Field to plot  C     fld - Field to plot
204  C     fldNam - Name of field  C     fldNam - Name of field
# Line 240  C     myThid - Thread id of thread insta Line 214  C     myThid - Thread id of thread insta
214        INTEGER myThid        INTEGER myThid
215        INTEGER myIter        INTEGER myIter
216    
 C     !LOCAL VARIABLES:  
217  C     == Local variables ==  C     == Local variables ==
218        CHARACTER*(MAX_LEN_MBUF) fldTitle        CHARACTER*(MAX_LEN_MBUF) fldTitle
219        INTEGER iStart, iEnd, iStride        INTEGER iStart, iEnd, iStride
# Line 248  C     == Local variables == Line 221  C     == Local variables ==
221        INTEGER kStart, kEnd, kStride        INTEGER kStart, kEnd, kStride
222        INTEGER biStart, biEnd, biStride        INTEGER biStart, biEnd, biStride
223        INTEGER bjStart, bjEnd, bjStride        INTEGER bjStart, bjEnd, bjStride
 CEOP  
224    
225  C--   To get around synchronisation and multi-threaded I/O issues  C--   To get around synchronisation and multi-threaded I/O issues
226  C--   thread 1 will do all the writes.  C--   thread 1 will do all the writes.
# Line 391  C      Substitute other plotting utiliti Line 363  C      Substitute other plotting utiliti
363        RETURN        RETURN
364        END        END
365    
366          SUBROUTINE PLOT_FIELD_XZRS(
367         I                            fld, fldNam , fldNz, myIter, myThid )
368    
369    C     /==========================================================\
370    C     | SUBROUTINE PLOT_FIELD_XYZR4                              |
371    C     | Print out an XYZ _RS field using text map.               |
372    C     |==========================================================|
373    C     | This routine references "numerical model" parameters like|
374    C     | like the integration time. It uses these to create a     |
375    C     | title for the field before calling a generic execution   |
376    C     | environment support routine.                             |
377    C     | This routine can also be edited to cause only some region|
378    C     | of a field to be printed by default, or every other      |
379    C     | point etc..                                              |
380    C     | Other plot formats can also be substituted here.         |
381    C     | _RS is usually a REAL*4 field                            |
382    C     \==========================================================/
383          IMPLICIT NONE
384    
385    #include "SIZE.h"
386    #include "EEPARAMS.h"
387    #include "PARAMS.h"
388    
389    C     == Routine arguments ==
390    C     fld - Field to plot
391    C     fldNam - Name of field
392    C     fldNz  - No. of layers in the vertical
393    C              (Different fields may have different vertical extents)
394    C              (Under the present implementation all fields have the)
395    C              (same lateral extents.                               )
396    C     myIter - Iteration number for plot
397    C     myThid - Thread id of thread instance calling plot_field
398          INTEGER fldNz
399          _RS fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy)
400          CHARACTER*(*) fldNam
401          INTEGER myThid
402          INTEGER myIter
403    
404    C     == Local variables ==
405          CHARACTER*(MAX_LEN_MBUF) fldTitle
406          INTEGER iStart, iEnd, iStride
407          INTEGER jStart, jEnd, jStride
408          INTEGER kStart, kEnd, kStride
409          INTEGER biStart, biEnd, biStride
410          INTEGER bjStart, bjEnd, bjStride
411    
412    C--   To get around synchronisation and multi-threaded I/O issues
413    C--   thread 1 will do all the writes.
414          _BARRIER
415          IF ( myThid .EQ. 1 ) THEN
416    C--    Form name for identifying "plot"
417           IF ( myIter .GE. 0 ) THEN
418            WRITE(fldTitle,'(A,A,A,I10)')
419         &  '// Field ', fldNam, ' at iteration ',
420         &  myIter
421           ELSE
422            WRITE(fldTitle,'(A,A)') '// Field ', fldNam
423           ENDIF
424    C--    Do "plot" using textual contour map "execution environment" routine
425    C      Substitute other plotting utilities here!
426           iStart   =  1
427           iEnd     =  sNx
428           iStride  =  1
429           jStart   =  1
430           jEnd     =  1
431           jStride  =  1
432           kStart   =  1
433           kEnd     =  fldNz
434           kStride  =  1
435           biStart  =  1
436           biEnd    =  nSx
437           biStride =  1
438           bjStart  =  nSy
439           bjEnd    =  1    
440           bjStride = -1
441           CALL PRINT_MAPRS(
442         I        fld, fldTitle, PRINT_MAP_XZ,
443         I         1-OLx,sNx+OLx,1,fldNz,1,1,  nSx,  nSy,
444         I         iStart,   iEnd,  iStride,
445         I         jStart,   jEnd,  jStride,
446         I         kStart,   kEnd,  kStride,
447         I        biStart,  biEnd, biStride,
448         I        bjStart,  bjEnd, bjStride )
449          ENDIF
450          _BARRIER
451    
452          RETURN
453          END
454          SUBROUTINE PLOT_FIELD_XZRL(
455         I                            fld, fldNam , fldNz, myIter, myThid )
456    
457    C     /==========================================================\
458    C     | SUBROUTINE PLOT_FIELD_XYZRL                              |
459    C     | Print out an XYZ _RL field using text map.               |
460    C     |==========================================================|
461    C     | This routine references "numerical model" parameters like|
462    C     | like the integration time. It uses these to create a     |
463    C     | title for the field before calling a generic execution   |
464    C     | environment support routine.                             |
465    C     | This routine can also be edited to cause only some region|
466    C     | of a field to be printed by default, or every other      |
467    C     | point etc..                                              |
468    C     | Other plot formats can also be substituted here.         |
469    C     | _RL is usually a REAL*8 field                            |
470    C     \==========================================================/
471          IMPLICIT NONE
472    
473    #include "SIZE.h"
474    #include "EEPARAMS.h"
475    #include "PARAMS.h"
476    
477    C     == Routine arguments ==
478    C     fld - Field to plot
479    C     fldNam - Name of field
480    C     fldNz  - No. of layers in the vertical
481    C              (Different fields may have different vertical extents)
482    C              (Under the present implementation all fields have the)
483    C              (same lateral extents.                               )
484    C     myIter - Iteration number for plot
485    C     myThid - Thread id of thread instance calling plot_field
486          INTEGER fldNz
487          _RL fld(1-OLx:sNx+OLx,1:fldNz,nSx,nSy)
488          CHARACTER*(*) fldNam
489          INTEGER myThid
490          INTEGER myIter
491    
492    C     == Local variables ==
493          CHARACTER*(MAX_LEN_MBUF) fldTitle
494          INTEGER iStart, iEnd, iStride
495          INTEGER jStart, jEnd, jStride
496          INTEGER kStart, kEnd, kStride
497          INTEGER biStart, biEnd, biStride
498          INTEGER bjStart, bjEnd, bjStride
499    
500    C--   To get around synchronisation and multi-threaded I/O issues
501    C--   thread 1 will do all the writes.
502          _BARRIER
503          IF ( myThid .EQ. 1 ) THEN
504    C--    Form name for identifying "plot"
505           IF ( myIter .GE. 0 ) THEN
506            WRITE(fldTitle,'(A,A,A,I10)')
507         &  '// Field ', fldNam, ' at iteration ',
508         &  myIter
509           ELSE
510            WRITE(fldTitle,'(A,A)') '// Field ', fldNam
511           ENDIF
512    C--    Do "plot" using textual contour map "execution environment" routine
513    C      Substitute other plotting utilities here!
514           iStart   =  1
515           iEnd     =  sNx
516           iStride  =  1
517           jStart   =  1
518           jEnd     =  1
519           jStride  = -1
520           kStart   =  1
521           kEnd     =  fldNz
522    c      kEnd     =  1
523           kStride  =  1
524           biStart  =  1
525           biEnd    =  nSx
526           biStride =  1
527           bjStart  =  nSy
528           bjEnd    =  1    
529           bjStride = -1
530           CALL PRINT_MAPRL(
531         I        fld, fldTitle, PRINT_MAP_XZ,
532         I         1-OLx,sNx+OLx,1,1,1,fldNz,  nSx,  nSy,
533         I         iStart,   iEnd,  iStride,
534         I         jStart,   jEnd,  jStride,
535         I         kStart,   kEnd,  kStride,
536         I        biStart,  biEnd, biStride,
537         I        bjStart,  bjEnd, bjStride )
538          ENDIF
539          _BARRIER
540    
541          RETURN
542          END
543    
544          SUBROUTINE PLOT_FIELD_YZRS(
545         I                            fld, fldNam , fldNz, myIter, myThid )
546    
547    C     /==========================================================\
548    C     | SUBROUTINE PLOT_FIELD_XYZR4                              |
549    C     | Print out an XYZ _RS field using text map.               |
550    C     |==========================================================|
551    C     | This routine references "numerical model" parameters like|
552    C     | like the integration time. It uses these to create a     |
553    C     | title for the field before calling a generic execution   |
554    C     | environment support routine.                             |
555    C     | This routine can also be edited to cause only some region|
556    C     | of a field to be printed by default, or every other      |
557    C     | point etc..                                              |
558    C     | Other plot formats can also be substituted here.         |
559    C     | _RS is usually a REAL*4 field                            |
560    C     \==========================================================/
561          IMPLICIT NONE
562    
563    #include "SIZE.h"
564    #include "EEPARAMS.h"
565    #include "PARAMS.h"
566    
567    C     == Routine arguments ==
568    C     fld - Field to plot
569    C     fldNam - Name of field
570    C     fldNz  - No. of layers in the vertical
571    C              (Different fields may have different vertical extents)
572    C              (Under the present implementation all fields have the)
573    C              (same lateral extents.                               )
574    C     myIter - Iteration number for plot
575    C     myThid - Thread id of thread instance calling plot_field
576          INTEGER fldNz
577          _RS fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy)
578          CHARACTER*(*) fldNam
579          INTEGER myThid
580          INTEGER myIter
581    
582    C     == Local variables ==
583          CHARACTER*(MAX_LEN_MBUF) fldTitle
584          INTEGER iStart, iEnd, iStride
585          INTEGER jStart, jEnd, jStride
586          INTEGER kStart, kEnd, kStride
587          INTEGER biStart, biEnd, biStride
588          INTEGER bjStart, bjEnd, bjStride
589    
590    C--   To get around synchronisation and multi-threaded I/O issues
591    C--   thread 1 will do all the writes.
592          _BARRIER
593          IF ( myThid .EQ. 1 ) THEN
594    C--    Form name for identifying "plot"
595           IF ( myIter .GE. 0 ) THEN
596            WRITE(fldTitle,'(A,A,A,I10)')
597         &  '// Field ', fldNam, ' at iteration ',
598         &  myIter
599           ELSE
600            WRITE(fldTitle,'(A,A)') '// Field ', fldNam
601           ENDIF
602    C--    Do "plot" using textual contour map "execution environment" routine
603    C      Substitute other plotting utilities here!
604           iStart   =  1
605           iEnd     =  1
606           iStride  =  1
607           jStart   =  sNy
608           jEnd     =  1
609           jStride  = -1
610           kStart   =  1
611           kEnd     =  fldNz
612    C      kEnd     =  1
613           kStride  =  1
614           biStart  =  1
615           biEnd    =  nSx
616           biStride =  1
617           bjStart  =  nSy
618           bjEnd    =  1    
619           bjStride = -1
620           CALL PRINT_MAPRS(
621         I        fld, fldTitle, PRINT_MAP_YZ,
622         I         1,1,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,
623         I         iStart,   iEnd,  iStride,
624         I         jStart,   jEnd,  jStride,
625         I         kStart,   kEnd,  kStride,
626         I        biStart,  biEnd, biStride,
627         I        bjStart,  bjEnd, bjStride )
628          ENDIF
629          _BARRIER
630    
631          RETURN
632          END
633          SUBROUTINE PLOT_FIELD_YZRL(
634         I                            fld, fldNam , fldNz, myIter, myThid )
635    
636    C     /==========================================================\
637    C     | SUBROUTINE PLOT_FIELD_XYZRL                              |
638    C     | Print out an XYZ _RL field using text map.               |
639    C     |==========================================================|
640    C     | This routine references "numerical model" parameters like|
641    C     | like the integration time. It uses these to create a     |
642    C     | title for the field before calling a generic execution   |
643    C     | environment support routine.                             |
644    C     | This routine can also be edited to cause only some region|
645    C     | of a field to be printed by default, or every other      |
646    C     | point etc..                                              |
647    C     | Other plot formats can also be substituted here.         |
648    C     | _RL is usually a REAL*8 field                            |
649    C     \==========================================================/
650          IMPLICIT NONE
651    
652    #include "SIZE.h"
653    #include "EEPARAMS.h"
654    #include "PARAMS.h"
655    
656    C     == Routine arguments ==
657    C     fld - Field to plot
658    C     fldNam - Name of field
659    C     fldNz  - No. of layers in the vertical
660    C              (Different fields may have different vertical extents)
661    C              (Under the present implementation all fields have the)
662    C              (same lateral extents.                               )
663    C     myIter - Iteration number for plot
664    C     myThid - Thread id of thread instance calling plot_field
665          INTEGER fldNz
666          _RL fld(1-OLy:sNy+OLy,1:fldNz,nSx,nSy)
667          CHARACTER*(*) fldNam
668          INTEGER myThid
669          INTEGER myIter
670    
671    C     == Local variables ==
672          CHARACTER*(MAX_LEN_MBUF) fldTitle
673          INTEGER iStart, iEnd, iStride
674          INTEGER jStart, jEnd, jStride
675          INTEGER kStart, kEnd, kStride
676          INTEGER biStart, biEnd, biStride
677          INTEGER bjStart, bjEnd, bjStride
678    
679    C--   To get around synchronisation and multi-threaded I/O issues
680    C--   thread 1 will do all the writes.
681          _BARRIER
682          IF ( myThid .EQ. 1 ) THEN
683    C--    Form name for identifying "plot"
684           IF ( myIter .GE. 0 ) THEN
685            WRITE(fldTitle,'(A,A,A,I10)')
686         &  '// Field ', fldNam, ' at iteration ',
687         &  myIter
688           ELSE
689            WRITE(fldTitle,'(A,A)') '// Field ', fldNam
690           ENDIF
691    C--    Do "plot" using textual contour map "execution environment" routine
692    C      Substitute other plotting utilities here!
693           iStart   =  1
694           iEnd     =  1
695           iStride  =  1
696           jStart   =  sNy
697           jEnd     =  1
698           jStride  = -1
699           kStart   =  1
700           kEnd     =  fldNz
701    c      kEnd     =  1
702           kStride  =  1
703           biStart  =  1
704           biEnd    =  nSx
705           biStride =  1
706           bjStart  =  nSy
707           bjEnd    =  1    
708           bjStride = -1
709           CALL PRINT_MAPRL(
710         I        fld, fldTitle, PRINT_MAP_YZ,
711         I         1,1,1-OLy,sNy+OLy,1,fldNz,  nSx,  nSy,
712         I         iStart,   iEnd,  iStride,
713         I         jStart,   jEnd,  jStride,
714         I         kStart,   kEnd,  kStride,
715         I        biStart,  biEnd, biStride,
716         I        bjStart,  bjEnd, bjStride )
717          ENDIF
718          _BARRIER
719    
720          RETURN
721          END
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22