Révision 8 src/ConvGrad_Cart2Int.f90

ConvGrad_Cart2Int.f90 (revision 8)
113 113
        call DGELSD( n3, n3, 1, BMat, n3, GradCart, n3, GradInt, Tol, RANK, &
114 114
                        WORK, LWORK, IWORK, INFO )
115 115

  
116
        LWork=Work(1)
116
        LWork=int(Work(1))
117 117
        if (debug) WRITE(*,*) "DEBUG CONVGRAD_CART2INT LWORK,N3=",LWORK,N3
118 118

  
119 119
        DEALLOCATE(Work)

Formats disponibles : Unified diff