| /dports/science/latte/LATTE-1.2.2/src/ |
| H A D | wrtrestart.F90 | 36 INTEGER :: MYID, IERR local
70 CALL MPI_COMM_RANK( MPI_COMM_WORLD, MYID, IERR )
73 IF (MYID .LT. 10) THEN
91 ELSEIF ( MYID .GE. 10 .AND. MYID .LT. 100) THEN
109 ELSEIF ( MYID .GE. 100 .AND. MYID .LT. 1000) THEN
131 IF (MYID .LT. 10) THEN
132 WRITE(FLNM,'(I1,"/Restarts/restartMD.last.dat")') MYID
133 ELSEIF (MYID .GE. 10 .AND. MYID .LT. 100) THEN
134 WRITE(FLNM,'(I2,"/Restarts/restartMD.last.dat")') MYID
135 ELSEIF (MYID .GE. 100 .AND. MYID .LT. 1000) THEN
[all …]
|
| H A D | parafileopen.F90 | 32 INTEGER :: MYID, IERR, MYUNIT local
38 CALL MPI_COMM_RANK( MPI_COMM_WORLD, MYID, IERR )
41 MYUNIT= 100 + MYID
43 IF (MYID .LT. 10) THEN
44 WRITE(FLNM,'(I1,"/pararep.dat")') MYID
45 ELSEIF (MYID .GE. 10 .AND. MYID .LT. 100) THEN
46 WRITE(FLNM,'(I2,"/pararep.dat")') MYID
47 ELSEIF (MYID .GE. 100 .AND. MYID .LT. 1000) THEN
48 WRITE(FLNM,'(I3,"/pararep.dat")') MYID
|
| H A D | wrtcfgs.F90 | 48 INTEGER :: MYID, IERR, IPIV(3), INFO local
163 CALL MPI_COMM_RANK( MPI_COMM_WORLD, MYID, IERR )
167 IF (MYID .LT. 10) THEN
172 WRITE(FLNM,'(I1,"/animate/dump2atomeye.",I2,".cfg")') MYID,ITER
174 WRITE(FLNM,'(I1,"/animate/dump2atomeye.",I3,".cfg")') MYID,ITER
176 WRITE(FLNM,'(I1,"/animate/dump2atomeye.",I4,".cfg")') MYID,ITER
178 WRITE(FLNM,'(I1,"/animate/dump2atomeye.",I5,".cfg")') MYID,ITER
180 WRITE(FLNM,'(I1,"/animate/dump2atomeye.",I6,".cfg")') MYID,ITER
182 WRITE(FLNM,'(I1,"/animate/dump2atomeye.",I7,".cfg")') MYID,ITER
187 ELSEIF (MYID .GE. 10 .AND. MYID .LT. 100) THEN
[all …]
|
| H A D | readrestart.F90 | 37 INTEGER :: MYID, IERR local
47 CALL MPI_COMM_RANK( MPI_COMM_WORLD, MYID, IERR )
51 IF (MYID .LT. 10) THEN
52 WRITE(FLNM,'(I1,"/bl/restart.dat")') MYID
53 ELSEIF (MYID .GE. 10 .AND. MYID .LT. 100) THEN
54 WRITE(FLNM,'(I2,"/bl/restart.dat")') MYID
55 ELSEIF (MYID .GE. 100 .AND. MYID .LT. 1000) THEN
56 WRITE(FLNM,'(I3,"/bl/restart.dat")') MYID
59 PRINT*, MYID, FLNM
|
| H A D | initrng.F90 | 34 INTEGER :: MYID, IERR local
37 MYID = 0
40 CALL MPI_COMM_RANK( MPI_COMM_WORLD, MYID, IERR )
52 IF (PARREP .EQ. 0) MYID = 0
55 SEED(I) = CLOCK + 37*(I - 1) + MYID
|
| /dports/math/mumps/mumps-5.1.2/src/ |
| H A D | cfac_driver.F | 573 & id%COMM, id%MYID )
611 & id%COMM, id%MYID )
1062 & (ID_ROOT.EQ.id%MYID .OR. id%MYID.EQ.MASTER)) THEN
1471 WRITE(LP,*) id%MYID,
1858 IF ( id%MYID.eq.MASTER)
1870 & id%COMM, id%MYID,
2033 WRITE(LP,*) id%MYID,
2045 WRITE(LP,*) id%MYID,
2064 WRITE(LP,*) id%MYID,
2795 & id%COMM, id%MYID )
[all …]
|
| H A D | zfac_driver.F | 573 & id%COMM, id%MYID )
611 & id%COMM, id%MYID )
1062 & (ID_ROOT.EQ.id%MYID .OR. id%MYID.EQ.MASTER)) THEN
1471 WRITE(LP,*) id%MYID,
1858 IF ( id%MYID.eq.MASTER)
1870 & id%COMM, id%MYID,
2033 WRITE(LP,*) id%MYID,
2045 WRITE(LP,*) id%MYID,
2064 WRITE(LP,*) id%MYID,
2795 & id%COMM, id%MYID )
[all …]
|
| H A D | dfac_driver.F | 572 & id%COMM, id%MYID )
610 & id%COMM, id%MYID )
1061 & (ID_ROOT.EQ.id%MYID .OR. id%MYID.EQ.MASTER)) THEN
1470 WRITE(LP,*) id%MYID,
1857 IF ( id%MYID.eq.MASTER)
1869 & id%COMM, id%MYID,
2032 WRITE(LP,*) id%MYID,
2044 WRITE(LP,*) id%MYID,
2063 WRITE(LP,*) id%MYID,
2794 & id%COMM, id%MYID )
[all …]
|
| H A D | sfac_driver.F | 572 & id%COMM, id%MYID )
610 & id%COMM, id%MYID )
1061 & (ID_ROOT.EQ.id%MYID .OR. id%MYID.EQ.MASTER)) THEN
1470 WRITE(LP,*) id%MYID,
1857 IF ( id%MYID.eq.MASTER)
1869 & id%COMM, id%MYID,
2032 WRITE(LP,*) id%MYID,
2044 WRITE(LP,*) id%MYID,
2063 WRITE(LP,*) id%MYID,
2794 & id%COMM, id%MYID )
[all …]
|
| H A D | cfac_process_maprow.F | 65 INTEGER IFLAG, IERROR, COMM, MYID local
125 IF (LP > 0) write(LP,*) MYID,
137 IF (LP>0) write(LP,*) MYID,
169 & NBFIN, MYID, SLAVEF,
379 IF ( PDEST .NE. MYID ) THEN
654 & write(LP,*) MYID,
662 IF (LP > 0) write(LP,*) MYID,
675 IF (LP > 0) write(LP,*) MYID,
734 PDEST_MASTER = MYID
884 IF ( PDEST .NE. MYID ) THEN
[all …]
|
| H A D | dfac_process_maprow.F | 65 INTEGER IFLAG, IERROR, COMM, MYID local
125 IF (LP > 0) write(LP,*) MYID,
137 IF (LP>0) write(LP,*) MYID,
169 & NBFIN, MYID, SLAVEF,
379 IF ( PDEST .NE. MYID ) THEN
654 & write(LP,*) MYID,
662 IF (LP > 0) write(LP,*) MYID,
675 IF (LP > 0) write(LP,*) MYID,
734 PDEST_MASTER = MYID
884 IF ( PDEST .NE. MYID ) THEN
[all …]
|
| H A D | sfac_process_maprow.F | 65 INTEGER IFLAG, IERROR, COMM, MYID local
125 IF (LP > 0) write(LP,*) MYID,
137 IF (LP>0) write(LP,*) MYID,
169 & NBFIN, MYID, SLAVEF,
379 IF ( PDEST .NE. MYID ) THEN
654 & write(LP,*) MYID,
662 IF (LP > 0) write(LP,*) MYID,
675 IF (LP > 0) write(LP,*) MYID,
734 PDEST_MASTER = MYID
884 IF ( PDEST .NE. MYID ) THEN
[all …]
|
| H A D | zfac_process_maprow.F | 65 INTEGER IFLAG, IERROR, COMM, MYID local
125 IF (LP > 0) write(LP,*) MYID,
137 IF (LP>0) write(LP,*) MYID,
169 & NBFIN, MYID, SLAVEF,
379 IF ( PDEST .NE. MYID ) THEN
654 & write(LP,*) MYID,
662 IF (LP > 0) write(LP,*) MYID,
675 IF (LP > 0) write(LP,*) MYID,
734 PDEST_MASTER = MYID
884 IF ( PDEST .NE. MYID ) THEN
[all …]
|
| H A D | cfac_root_parallel.F | 13 SUBROUTINE CMUMPS_FACTO_ROOT( MYID, MASTER_OF_ROOT, argument
24 INTEGER N, IROOT, COMM, LIW, MYID, IFREE, MASTER_OF_ROOT local
52 & root%TOT_ROOT_SIZE, MYID, COMM )
72 WRITE(*,*) MYID,': problem allocating IPIV(',LPIV,') in root'
95 & root%TOT_ROOT_SIZE, MYID, COMM )
116 & root%NPROW, root%NPCOL, MYID )
120 & root%NPROW, root%NPCOL, MYID )
125 & root%NPROW, root%NPCOL, MYID )
129 & root%NPROW, root%NPCOL, MYID )
141 IF (MYID .eq. MASTER_OF_ROOT) THEN
[all …]
|
| H A D | zfac_root_parallel.F | 13 SUBROUTINE ZMUMPS_FACTO_ROOT( MYID, MASTER_OF_ROOT, argument
24 INTEGER N, IROOT, COMM, LIW, MYID, IFREE, MASTER_OF_ROOT local
52 & root%TOT_ROOT_SIZE, MYID, COMM )
72 WRITE(*,*) MYID,': problem allocating IPIV(',LPIV,') in root'
95 & root%TOT_ROOT_SIZE, MYID, COMM )
116 & root%NPROW, root%NPCOL, MYID )
120 & root%NPROW, root%NPCOL, MYID )
125 & root%NPROW, root%NPCOL, MYID )
129 & root%NPROW, root%NPCOL, MYID )
141 IF (MYID .eq. MASTER_OF_ROOT) THEN
[all …]
|
| H A D | dfac_root_parallel.F | 13 SUBROUTINE DMUMPS_FACTO_ROOT( MYID, MASTER_OF_ROOT, argument
24 INTEGER N, IROOT, COMM, LIW, MYID, IFREE, MASTER_OF_ROOT local
52 & root%TOT_ROOT_SIZE, MYID, COMM )
72 WRITE(*,*) MYID,': problem allocating IPIV(',LPIV,') in root'
95 & root%TOT_ROOT_SIZE, MYID, COMM )
116 & root%NPROW, root%NPCOL, MYID )
120 & root%NPROW, root%NPCOL, MYID )
125 & root%NPROW, root%NPCOL, MYID )
129 & root%NPROW, root%NPCOL, MYID )
141 IF (MYID .eq. MASTER_OF_ROOT) THEN
[all …]
|
| H A D | sfac_root_parallel.F | 13 SUBROUTINE SMUMPS_FACTO_ROOT( MYID, MASTER_OF_ROOT, argument
24 INTEGER N, IROOT, COMM, LIW, MYID, IFREE, MASTER_OF_ROOT local
52 & root%TOT_ROOT_SIZE, MYID, COMM )
72 WRITE(*,*) MYID,': problem allocating IPIV(',LPIV,') in root'
95 & root%TOT_ROOT_SIZE, MYID, COMM )
116 & root%NPROW, root%NPCOL, MYID )
120 & root%NPROW, root%NPCOL, MYID )
125 & root%NPROW, root%NPCOL, MYID )
129 & root%NPROW, root%NPCOL, MYID )
141 IF (MYID .eq. MASTER_OF_ROOT) THEN
[all …]
|
| H A D | zsol_driver.F | 373 IF (id%MYID .EQ. MASTER) THEN
861 IF (id%MYID .NE. MASTER) THEN
888 IF (id%MYID.EQ.MASTER) THEN
999 & id%COMM, id%MYID )
1367 IF (id%MYID.EQ.MASTER) THEN
1519 & WRITE(LP,*) id%MYID,
1629 & WRITE(LP,*) id%MYID,
1648 WRITE(LP,*) id%MYID,
1687 WRITE(LP,*) id%MYID,
4934 IF ( (id%MYID.EQ.MASTER)
[all …]
|
| H A D | csol_driver.F | 373 IF (id%MYID .EQ. MASTER) THEN
861 IF (id%MYID .NE. MASTER) THEN
888 IF (id%MYID.EQ.MASTER) THEN
999 & id%COMM, id%MYID )
1367 IF (id%MYID.EQ.MASTER) THEN
1519 & WRITE(LP,*) id%MYID,
1629 & WRITE(LP,*) id%MYID,
1648 WRITE(LP,*) id%MYID,
1687 WRITE(LP,*) id%MYID,
4934 IF ( (id%MYID.EQ.MASTER)
[all …]
|
| H A D | dsol_driver.F | 373 IF (id%MYID .EQ. MASTER) THEN
861 IF (id%MYID .NE. MASTER) THEN
888 IF (id%MYID.EQ.MASTER) THEN
999 & id%COMM, id%MYID )
1367 IF (id%MYID.EQ.MASTER) THEN
1519 & WRITE(LP,*) id%MYID,
1629 & WRITE(LP,*) id%MYID,
1648 WRITE(LP,*) id%MYID,
1687 WRITE(LP,*) id%MYID,
4934 IF ( (id%MYID.EQ.MASTER)
[all …]
|
| H A D | ssol_driver.F | 373 IF (id%MYID .EQ. MASTER) THEN
861 IF (id%MYID .NE. MASTER) THEN
888 IF (id%MYID.EQ.MASTER) THEN
999 & id%COMM, id%MYID )
1367 IF (id%MYID.EQ.MASTER) THEN
1519 & WRITE(LP,*) id%MYID,
1629 & WRITE(LP,*) id%MYID,
1648 WRITE(LP,*) id%MYID,
1687 WRITE(LP,*) id%MYID,
4934 IF ( (id%MYID.EQ.MASTER)
[all …]
|
| H A D | zfac_sol_pool.F | 182 & STEP, INODE, KEEP,KEEP8, MYID, ND, argument
273 WRITE(*,*)MYID,': ca a change pour moi'
290 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
368 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
410 INTEGER INODE,LPOOL,N,MYID,SLAVEF,PROC,MIN_PROC local
458 WRITE(*,*)MYID,': selecting from subtree'
463 WRITE(*,*)MYID,': I must search for a task
485 INTEGER INODE,LPOOL,N,SLAVEF,MYID,MIN_PROC local
495 WRITE(*,*)MYID,': NBTOP=',NBTOP
521 WRITE(*,*)MYID,': Extracting from a subtree
[all …]
|
| H A D | dfac_sol_pool.F | 182 & STEP, INODE, KEEP,KEEP8, MYID, ND, argument
273 WRITE(*,*)MYID,': ca a change pour moi'
290 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
368 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
410 INTEGER INODE,LPOOL,N,MYID,SLAVEF,PROC,MIN_PROC local
458 WRITE(*,*)MYID,': selecting from subtree'
463 WRITE(*,*)MYID,': I must search for a task
485 INTEGER INODE,LPOOL,N,SLAVEF,MYID,MIN_PROC local
495 WRITE(*,*)MYID,': NBTOP=',NBTOP
521 WRITE(*,*)MYID,': Extracting from a subtree
[all …]
|
| H A D | sfac_sol_pool.F | 182 & STEP, INODE, KEEP,KEEP8, MYID, ND, argument
273 WRITE(*,*)MYID,': ca a change pour moi'
290 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
368 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
410 INTEGER INODE,LPOOL,N,MYID,SLAVEF,PROC,MIN_PROC local
458 WRITE(*,*)MYID,': selecting from subtree'
463 WRITE(*,*)MYID,': I must search for a task
485 INTEGER INODE,LPOOL,N,SLAVEF,MYID,MIN_PROC local
495 WRITE(*,*)MYID,': NBTOP=',NBTOP
521 WRITE(*,*)MYID,': Extracting from a subtree
[all …]
|
| H A D | cfac_sol_pool.F | 182 & STEP, INODE, KEEP,KEEP8, MYID, ND, argument
273 WRITE(*,*)MYID,': ca a change pour moi'
290 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
368 & PROCNODE,SLAVEF,MYID,SBTR_FLAG,
410 INTEGER INODE,LPOOL,N,MYID,SLAVEF,PROC,MIN_PROC local
458 WRITE(*,*)MYID,': selecting from subtree'
463 WRITE(*,*)MYID,': I must search for a task
485 INTEGER INODE,LPOOL,N,SLAVEF,MYID,MIN_PROC local
495 WRITE(*,*)MYID,': NBTOP=',NBTOP
521 WRITE(*,*)MYID,': Extracting from a subtree
[all …]
|