Révision 7 src/bib_oper.f90

bib_oper.f90 (revision 7)
104 104
                               v2x,v2y,v2z, &
105 105
                               v3x,v3y,v3z,norm3)
106 106

  
107
        use Path_module, only :  Pi,KINT, KREAL
107
        use Path_module, only :   KREAL
108 108

  
109 109
        real(KREAL) ::  v1x,v1y,v1z ! what do you do with norm1, norm2???
110 110
        real(KREAL) ::  v2x,v2y,v2z

Formats disponibles : Unified diff