Commit 418fb749 authored by Daniel Wortmann's avatar Daniel Wortmann

Workaround for Bug in ifort 17.0. Removed INTENT for

class(*) variables that generate segfaults.
parent 30d27280
......@@ -161,7 +161,7 @@ CONTAINS
REAL, INTENT(OUT),OPTIONAL :: evac(:),ello(:,:),el(:,:)
REAL, INTENT(OUT),OPTIONAL :: bk(:),wk
INTEGER, INTENT(IN),OPTIONAL :: n_start,n_end
CLASS(*),TARGET,INTENT(OUT),OPTIONAL :: z(:,:)
CLASS(*),TARGET,OPTIONAL :: z(:,:)
!Local variables
INTEGER:: nv_s,nmat_s,n,nrec,neig_s
......
......@@ -602,7 +602,7 @@ CONTAINS
REAL, INTENT(OUT),OPTIONAL :: evac(:),ello(:,:),el(:,:)
REAL, INTENT(OUT),OPTIONAL :: bk(:),wk
INTEGER, INTENT(IN),OPTIONAL :: n_start,n_end
CLASS(*),TARGET,INTENT(OUT),OPTIONAL :: z(:,:)
CLASS(*),TARGET,OPTIONAL :: z(:,:)
#ifdef CPP_HDF
INTEGER:: n1,n,k,k1_t,k2_t,k3_t
......
......@@ -123,7 +123,7 @@ CONTAINS
REAL, INTENT(OUT),OPTIONAL :: evac(:),ello(:,:),el(:,:)
REAL, INTENT(OUT),OPTIONAL :: bk(:),wk
INTEGER, INTENT(IN),OPTIONAL :: n_start,n_end
CLASS(*),INTENT(OUT),OPTIONAL :: z(:,:)
CLASS(*),OPTIONAL :: z(:,:)
INTEGER::n
CALL timestart("IO (read)")
SELECT CASE (eig66_data_mode(id))
......
......@@ -240,7 +240,7 @@ CONTAINS
REAL, INTENT(OUT),OPTIONAL :: evac(:),ello(:,:),el(:,:)
REAL, INTENT(OUT),OPTIONAL :: bk(:),wk
INTEGER, INTENT(IN),OPTIONAL :: n_start,n_end
CLASS(*),INTENT(OUT),OPTIONAL :: z(:,:)
CLASS(*),OPTIONAL :: z(:,:)
INTEGER::nrec
TYPE(t_data_mem),POINTER:: d
......
......@@ -267,7 +267,7 @@ CONTAINS
REAL, INTENT(OUT),OPTIONAL :: evac(:),ello(:,:),el(:,:)
REAL, INTENT(OUT),OPTIONAL :: bk3(:),wk
INTEGER, INTENT(IN),OPTIONAL :: n_start,n_end
CLASS(*),TARGET,INTENT(OUT),OPTIONAL :: z(:,:)
CLASS(*),TARGET,OPTIONAL :: z(:,:)
#ifdef CPP_MPI
INTEGER :: pe,tmp_size,e
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment