$! 0_Lapack.GEN  --- LaPack & BLAS
$! P1 = [64f] or 64 or 32
$!
$ If ( p1 .eqs. "64F" -
  .or. p1 .eqs. ""   ) Then bit64f
$ If ( p1 .eqs. "64" ) Then bit64
$ If ( p1 .eqs. "32" ) Then bit32
$
$ Set NoOn
$
$! ----------  New, IEEE_Mode=Fast  24-Mar-2008  ---------------------------------------------
$
$ Delete /noConf                              zzTem:Lapack*.*;*
$
$ copy  Lapack_Src:*.f;, Lapack_Blas:*.f;     zzTem:LaPack.for
$
$ On Warning Then EXIT
$ FF /obj=zzTem: /lis=zzTem:      zzTem:Lapack  /warn=(noUnused) /Separate_Comp
$
$ Libra /crea  zzTem:Lapack.olb   zzTem:Lapack.obj
$
$ Copy         zzTem:Lapack.olb   gObj:  /prot=w:re
$ Copy         zzTem:Lapack.lis    Tem:  /prot=w:re
$
$ Purge /by /sinc                 gObj:Lapack.*, Tem:Lapack.*
$
$ EXIT
$
$! ----------------   old methods .... --------------
$
$ Crea /direc   sdphi0$mdi0:[zzTem.Lapack]
$ Defi  zzTemL  sdphi0$mdi0:[zzTem.Lapack]
$
$!        Fort64 := "FORTRAN/ext/war=(all,noDecl) /che=(All,NoFormat,NoPower) /Int=64/Rea=64/Dou=128/float=ieee"
$ FFF := 'Fort64 /noWarn' /lis=zzTemL: /obj=zzTemL:
$
$
$! =============================================================== LAPACK
$ Compile_LapackSRC:
$ Set Def software8:[Lapack.src]
$
$! ------------------------------------------ Single Precision
$ LoopS:
$    nxtFilNam = f$search( "S*.F" )
$ if nxtFilNam .eqs. "" Then GoTo LoopC
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo LoopS
$
$! ------------------------------------------ Complex Single
$ LoopC:
$    nxtFilNam = f$search( "C*.F" )
$ if nxtFilNam .eqs. "" Then GoTo LoopD
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo LoopC
$
$! ------------------------------------------ Double Precision
$ LoopD:
$    nxtFilNam = f$search( "D*.F" )
$ if nxtFilNam .eqs. "" Then GoTo LoopZ
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo LoopD
$
$ Set Def software8:[Lapack.src]
$! ------------------------------------------ Double Complex
$ LoopZ:
$    nxtFilNam = f$search( "Z*.F" )
$ if nxtFilNam .eqs. "" Then GoTo LoopEnd
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo LoopZ
$
$ LoopEnd:
$
$ Set Def software8:[Lapack.src]
$ FFF icMax1, ieeeCk, iLaEnv, izMax1, lsaMe, lsaMen, xerBla
$
$! ================================================================ BLAS
$ Compile_blas_SCD:
$ Set Def software8:[Lapack.BLAS.src]
$
$! ------------------------------------------ Single Precision
$ BLoopS:
$    nxtFilNam = f$search( "S*.F" )
$ if nxtFilNam .eqs. "" Then GoTo BLoopC
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo BLoopS
$
$! ------------------------------------------ Complex Single
$ BLoopC:
$    nxtFilNam = f$search( "C*.F" )
$ if nxtFilNam .eqs. "" Then GoTo BLoopD
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo BLoopC
$
$! ------------------------------------------ Double Precision
$ BLoopD:
$    nxtFilNam = f$search( "D*.F" )
$ if nxtFilNam .eqs. "" Then GoTo BLoopZ
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo BLoopD
$
$! ------------------------------------------ Double Complex
$ BLoopZ:
$    nxtFilNam = f$search( "Z*.F" )
$ if nxtFilNam .eqs. "" Then GoTo BLoopEnd
$ write sys$output "Compiling ''nxtFilNam'"
$ FFF 'nxtFilNam'
$ GoTo BLoopZ
$
$ BLoopEnd:
$
$ Set Def software8:[Lapack.BLAS.src]
$ FFF icaMax, idaMax, isaMax, izaMax, lSame, xErBla
$
$ BuildIt:
$ Set Veri
$ Copy /concat  zzTemL:*.obj;        zzTemL:lap_all.obj
$ Libr /crea  gObj64:lapack_lib.olb  zzTemL:lap_all.obj
$
$ Delete zzTemL:*.obj;*
$ Set file /prot=o:rwed  sdphi0$mdi0:[zzTem]Lapack.dir;1
$ Delete                 sdphi0$mdi0:[zzTem]Lapack.dir;1
$ 
$ Set Def software8:[Lapack]
$
$! End 0_Lapack.gen