diff --git a/stochy_patterngenerator.F90 b/stochy_patterngenerator.F90 index 6c400af2..fff41570 100644 --- a/stochy_patterngenerator.F90 +++ b/stochy_patterngenerator.F90 @@ -250,10 +250,6 @@ end subroutine getnoise subroutine patterngenerator_advance(rpattern,k,skeb_first_call) -#ifdef TRANSITION -!DIR$ OPTIMIZE:1 -#endif - ! advance 1st-order autoregressive process with ! specified autocorrelation (phi) and variance spectrum (spectrum) real(kind_dbl_prec) :: noise_e(len_trie_ls,2)