| ! { dg-do compile } | |
| ! { dg-options "-O2 -ftree-vectorize" } | |
| TYPE :: spot_weld_type | |
| CHARACTER(8) PLACE ! Keyword "NODE" or "POSITION" | |
| END TYPE | |
| TYPE (spot_weld_type), DIMENSION(:), ALLOCATABLE :: SPOT_WELD | |
| INTEGER, PARAMETER :: LSRT = 12 ! Length of sorted-element-distance array | |
| INTEGER & | |
| & IETYP(LSRT) ! -/- Sort array for closest el's, 0/1=tri/qu | |
| REAL(KIND(0D0)) & | |
| & DSQRD(LSRT) ! -/- Sort array for closest el's, d**2 | |
| LOGICAL & | |
| & COINCIDENT, & | |
| & INSIDE_ELEMENT | |
| IF (SPOT_WELD(NSW)%PLACE .EQ. 'POSITION') THEN | |
| DO n = 1,LSRT | |
| ENDDO | |
| DO i = 1,NUMP3 | |
| DO WHILE (Distance_Squared .GT. DSQRD(n) .AND. n .LE. LSRT) | |
| ENDDO | |
| IF (n .LT. LSRT) THEN | |
| DO k = LSRT-1,n,-1 | |
| DSQRD(k+1) = DSQRD(k) | |
| IETYP(k+1) = IETYP(k) | |
| ENDDO | |
| ENDIF | |
| DO n = 1,LSRT | |
| IF (IETYP(n) .EQ. 0) THEN | |
| INSIDE_ELEMENT = & | |
| & Xi1EL(n) .GE. 0.0 .AND. Xi2EL(n) .GE. 0.0 | |
| IF (DSQRD(n) .LT. Dmin) THEN | |
| ENDIF | |
| ENDIF | |
| ENDDO | |
| ENDDO | |
| IF (Icount .GT. 0) THEN | |
| DO i = 1,Icount | |
| CALL USER_MESSAGE & | |
| & ( & | |
| & ) | |
| ENDDO | |
| CALL USER_MESSAGE & | |
| & ( & | |
| & ) | |
| ENDIF | |
| IF & | |
| & ( & | |
| & .NOT.COINCIDENT & | |
| & ) & | |
| & THEN | |
| IF (NP1 .GT. 0) THEN | |
| IF (NP1 .GT. 0) THEN | |
| ENDIF | |
| ENDIF | |
| ENDIF | |
| IF (.NOT.COINCIDENT) THEN | |
| DO i = 1,3 | |
| IF (NP(i) .GT. 0) THEN | |
| ENDIF | |
| ENDDO | |
| ENDIF | |
| ENDIF | |
| END |