Home
last modified time | relevance | path

Searched refs:NameSpaceI (Results 1 – 1 of 1) sorted by relevance

/dports/science/elmerfem/elmerfem-release-9.0/fem/src/
H A DDefUtils.F903196 INTEGER :: NameSpaceI, Count, MaxCount, i local
3207 NameSpaceI = NINT( ListGetCReal( Params,'Linear System Namespace Number', Found ) )
3209 IF( LinearSystemTrialing ) NameSpaceI = MAX( 1, NameSpaceI )
3211 IF( NameSpaceI > 0 ) THEN
3213 CALL ListPushNamespace('linsys'//TRIM(I2S(NameSpaceI))//':')
3279 IF( i == NameSpaceI ) THEN
3285 NameSpaceI = 0
3293 NameSpaceI = NameSpaceI + 1
3294 IF( .NOT. ListCheckPrefix( Params,'linsys'//TRIM(I2S(NameSpaceI)) ) ) THEN
3299 CALL ListPushNamespace('linsys'//TRIM(I2S(NameSpaceI))//':')
[all …]