program main

  USE IMSL_LIBRARIES

!                                 Declare variables

      PARAMETER  (NRA=3, NCA=2, LDA=NRA, LDGINV=NCA)

      REAL       A(LDA,NCA), GINV(LDGINV,NRA)

!

!                                 Set values for A

!

!                                 A = (   1    0   )

!                                     (   1    1   )

!                                     ( 100  -50   )

!      `

      DATA A/1., 1., 100., 0., 1., -50./

!

!                                 Compute generalized inverse

      TOL = AMACH(4)
      TOL = 10.*TOL

      CALL LSGRR (A, GINV,TOL=TOL, IRANK=IRANK)

!                                 Print results

      CALL UMACH (2, NOUT)

      WRITE (NOUT, *) 'IRANK = ', IRANK

      CALL WRRRN ('GINV', GINV)

!

   end program main



我将LSGRR中的那个例子 复制到fortran中运行时，有几处错误：
1， Error: Error in opening the Library module file.   [IMSL_LIBRARIES]
  USE IMSL_LIBRARIES

2,Error: Keyword arguments are invalid without an explicit interface.   [TOL]
      CALL LSGRR (A, GINV,TOL=TOL, IRANK=IRANK)

3,Keyword arguments are invalid without an explicit interface.   [IRANK]
      CALL LSGRR (A, GINV,TOL=TOL, IRANK=IRANK)

我的是fortran95 默认有安装IMSL库的， 但是依照错误貌似没有IMSL_LIBRARIES这个库，这个如何处置？ 另外两个错误， 我也莫名其妙，因为代码就是以下链接复制的：
http://www.roguewave.com/Portals/0/products/imsl-numerical-libraries/fortran-library/docs/6.0/math/lsgrr.htm

期待您的解答，在线等待中.....

用use LSGRR_int、use UMACH_int、use AMACH_int代替试试看
自带imsl的Fortran编译器？cvf还是ivf

还是不行的啊，可能不是原因，但是还是给您砖家分数。

 您平时有用到广义逆吗？

我就是想知道命令怎么个用法？？

用：
use IMSL这句即可

我指的如果用CVF6.6

fortran有自带的求解宏函数  比如你求矩阵A的逆矩阵 可以直接写成 .i.A  其中.i.是指对某一矩阵求逆