MERGE |
書式 | MERGE(TSOURCE,FSOURCE,MASK) | |||||||||||||||||||||||||
機能 |
2つの配列TSOURCE,FSOURCEからMASKの値に従っていずれか
一方の配列の値を選択し、新しい配列を作成する。
| |||||||||||||||||||||||||
引数 |
| |||||||||||||||||||||||||
戻り値 | 型、種別パラメタは引数TSOURCEと同じである。 |
INTEGER,DIMENSION(5) :: a,b,c LOGICAL,DIMENSION(5) :: mask a=(/1, 2, 3, 4, 5/) b=(/6, 7, 8, 9, 10/) mask=(/.TRUE., .FALSE., .TRUE., .TRUE., .TRUE./) c=MERGE(a,b,mask) !(1) WRITE(*,*) c mask=(a>3) c=MERGE(a,b,mask) !(2) WRITE(*,*) c
実行例 |