- #1
pandroza
- 1
- 0
Hi, I am new in fortran.
I have this code in fortran 90, I get segmentation fault when I run my program, can you help me please, I am desperate!
SUBROUTINE COUNTX(NX,ncov)
IMPLICIT NONE
INTEGER, INTENT(IN)::ncov
INTEGER,DIMENSION(ncov),INTENT(INOUT)::NX(:)
INTEGER:: AUX,i
DO i=1,ncov
print *,NX(i)
END DO
END SUBROUTINE
PROGRAM minSC
IMPLICIT NONE
INTEGER::ncov,i
INTEGER,ALLOCATABLE::NX(:)
PRINT "(A)","Give me the value ncov "
read(*,*),ncov
allocate(NX(ncov))
DO i=1,Ncov
NX(i)=0
END DO
CALL COUNTX(NX,ncov)
END PROGRAM
I have this code in fortran 90, I get segmentation fault when I run my program, can you help me please, I am desperate!
SUBROUTINE COUNTX(NX,ncov)
IMPLICIT NONE
INTEGER, INTENT(IN)::ncov
INTEGER,DIMENSION(ncov),INTENT(INOUT)::NX(:)
INTEGER:: AUX,i
DO i=1,ncov
print *,NX(i)
END DO
END SUBROUTINE
PROGRAM minSC
IMPLICIT NONE
INTEGER::ncov,i
INTEGER,ALLOCATABLE::NX(:)
PRINT "(A)","Give me the value ncov "
read(*,*),ncov
allocate(NX(ncov))
DO i=1,Ncov
NX(i)=0
END DO
CALL COUNTX(NX,ncov)
END PROGRAM