Back to the "Multiple platform build/check report" A  B  C  D  E  F  G  H [I] J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z 

BioC 3.0: CHECK report for iClusterPlus on oaxaca

This page was generated on 2015-04-10 10:08:28 -0700 (Fri, 10 Apr 2015).

Package 446/933HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
iClusterPlus 1.2.0
Qianxing Mo , Ronglai Shen
Snapshot Date: 2015-04-09 16:20:12 -0700 (Thu, 09 Apr 2015)
URL: https://hedgehog.fhcrc.org/bioconductor/branches/RELEASE_3_0/madman/Rpacks/iClusterPlus
Last Changed Rev: 95439 / Revision: 102249
Last Changed Date: 2014-10-13 14:38:33 -0700 (Mon, 13 Oct 2014)
zin1 Linux (Ubuntu 12.04.4 LTS) / x86_64  NotNeeded  OK  OK 
moscato1 Windows Server 2008 R2 Enterprise SP1 (64-bit) / x64  NotNeeded  OK  OK  OK 
perceval Mac OS X Snow Leopard (10.6.8) / x86_64  NotNeeded  OK  OK  OK 
oaxaca Mac OS X Mavericks (10.9.5) / x86_64  NotNeeded  OK [ WARNINGS ] OK 

Summary

Package: iClusterPlus
Version: 1.2.0
Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --no-vignettes --timings --no-multiarch iClusterPlus_1.2.0.tar.gz
StartedAt: 2015-04-10 00:35:39 -0700 (Fri, 10 Apr 2015)
EndedAt: 2015-04-10 00:38:18 -0700 (Fri, 10 Apr 2015)
EllapsedTime: 159.0 seconds
RetCode: 0
Status:  WARNINGS 
CheckDir: iClusterPlus.Rcheck
Warnings: 1

Command output

##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --no-vignettes --timings --no-multiarch iClusterPlus_1.2.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/Users/biocbuild/bbs-3.0-bioc/meat/iClusterPlus.Rcheck’
* using R version 3.1.3 (2015-03-09)
* using platform: x86_64-apple-darwin13.4.0 (64-bit)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘iClusterPlus/DESCRIPTION’ ... OK
* this is package ‘iClusterPlus’ version ‘1.2.0’
* checking package namespace information ... OK
* checking package dependencies ... OK
* checking if this is a source package ... OK
* checking if there is a namespace ... OK
* checking for hidden files and directories ... OK
* checking for portable file names ... OK
* checking for sufficient/correct file permissions ... OK
* checking whether package ‘iClusterPlus’ can be installed ... [23s/25s] WARNING
Found the following significant warnings:
  newGLMnet.f90:2086:0: warning: control reaches end of non-void function [-Wreturn-type]
See ‘/Users/biocbuild/bbs-3.0-bioc/meat/iClusterPlus.Rcheck/00install.out’ for details.
* checking installed package size ... NOTE
  installed size is 22.2Mb
  sub-directories of 1Mb or more:
    data  17.9Mb
    doc    3.9Mb
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... OK
* checking top-level files ... OK
* checking for left-over files ... OK
* checking index information ... OK
* checking package subdirectories ... OK
* checking R files for non-ASCII characters ... OK
* checking R files for syntax errors ... OK
* checking whether the package can be loaded ... OK
* checking whether the package can be loaded with stated dependencies ... OK
* checking whether the package can be unloaded cleanly ... OK
* checking whether the namespace can be loaded with stated dependencies ... OK
* checking whether the namespace can be unloaded cleanly ... OK
* checking loading without being on the library search path ... OK
* checking dependencies in R code ... NOTE
Package in Depends field not imported from: ‘parallel’
  These packages need to be imported from (in the NAMESPACE file)
  for when this namespace is loaded but not attached.
* checking S3 generic/method consistency ... OK
* checking replacement functions ... OK
* checking foreign function calls ... OK
* checking R code for possible problems ... NOTE
CNregions: no visible binding for global variable ‘chromosome’
CNregions: no visible binding for global variable ‘num.mark’
CNregions: no visible global function definition for ‘GRanges’
CNregions: no visible global function definition for ‘IRanges’
CNregions: no visible global function definition for ‘findOverlaps’
CNregions : get.medoid: no visible global function definition for ‘pam’
classError: no visible global function definition for ‘mapClass’
plotHeatmap: no visible global function definition for ‘bluered’
plotHeatmap : my.panel.levelplot: no visible global function definition
  for ‘panel.levelplot’
plotHeatmap : my.panel.levelplot: no visible global function definition
  for ‘panel.abline’
plotHeatmap : my.panel.levelplot.2: no visible global function
  definition for ‘panel.levelplot’
plotHeatmap : my.panel.levelplot.2: no visible global function
  definition for ‘panel.abline’
plotHeatmap: no visible global function definition for ‘levelplot’
tune.iCluster2: no visible binding for global variable ‘glp’
tune.iClusterPlus: no visible binding for global variable ‘glp’
tune.iClusterPlus: no visible global function definition for ‘mclapply’
* checking Rd files ... OK
* checking Rd metadata ... OK
* checking Rd cross-references ... OK
* checking for missing documentation entries ... OK
* checking for code/documentation mismatches ... OK
* checking Rd \usage sections ... OK
* checking Rd contents ... OK
* checking for unstated dependencies in examples ... OK
* checking contents of ‘data’ directory ... OK
* checking data for non-ASCII characters ... OK
* checking data for ASCII and uncompressed saves ... OK
* checking line endings in C/C++/Fortran sources/headers ... OK
* checking line endings in Makefiles ... OK
* checking compilation flags in Makevars ... OK
* checking for GNU extensions in Makefiles ... OK
* checking for portable use of $(BLAS_LIBS) and $(LAPACK_LIBS) ... OK
* checking compiled code ... OK
* checking sizes of PDF files under ‘inst/doc’ ... OK
* checking installed files from ‘inst/doc’ ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... [8s/8s] OK
Examples with CPU or elapsed time > 5s
          user system elapsed
iCluster 6.998  0.047   7.235
* checking for unstated dependencies in tests ... OK
* checking tests ...
  Running ‘runTests.R’ [89s/90s]
 [89s/91s] OK
* checking for unstated dependencies in vignettes ... OK
* checking package vignettes in ‘inst/doc’ ... OK
* checking running R code from vignettes ... SKIPPED
* checking re-building of vignette outputs ... SKIPPED
* checking PDF version of manual ... OK
* DONE

WARNING: There was 1 warning.
NOTE: There were 3 notes.
See
  ‘/Users/biocbuild/bbs-3.0-bioc/meat/iClusterPlus.Rcheck/00check.log’
for details.

iClusterPlus.Rcheck/00install.out:

* installing *source* package ‘iClusterPlus’ ...
 This package has only been tested with gfortran.
 So some checks are needed.
 R_HOME is /Library/Frameworks/R.framework/Resources
Attempting to determine R_ARCH...
R_ARCH is 
Attempting to detect how R was configured for Fortran 90....
  R configured for gfortran; Good!
configure: creating ./config.status
config.status: creating src/Makevars
** libs
clang -I/Library/Frameworks/R.framework/Resources/include -DNDEBUG  -I/usr/local/include -I/usr/local/include/freetype2 -I/opt/X11/include    -fPIC  -Wall -mtune=core2 -g -O2  -c iClusterPlus.c -o iClusterPlus.o
gfortran-4.8 -fdefault-real-8 -ffixed-form -fno-common -Wall -g -O2  -c  newGLMnet.f90 -o newGLMnet.o
newGLMnet.f90:519.72:

      subroutine elnet  (ka,parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:521.72:

      real x(no,ni),y(no),w(no),vp(ni),ca(nx,nlam)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:522.72:

      real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:523.72:

      integer jd(*),ia(nx),nin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:525.72:

      if(maxval(vp) .gt. 0.0)goto 10021                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:526.72:

      jerr=10000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:527.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:528.72:

10021 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:529.72:

      allocate(vq(1:ni),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:530.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:531.72:

      vq=max(0.0,vp)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:532.72:

      vq=vq*ni/sum(vq)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:533.72:

      if(ka .ne. 1)goto 10041                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:534.72:

      call elnetu  (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:536.72:

      goto 10051                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:537.72:

10041 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:538.72:

      call elnetn (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:540.72:

10051 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:541.72:

10031 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:542.72:

      deallocate(vq)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:543.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:544.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:545.72:

      subroutine elnetu  (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,t
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:547.72:

      real x(no,ni),y(no),w(no),vp(ni),ulam(nlam)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:548.72:

      real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:549.72:

      integer jd(*),ia(nx),nin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:552.72:

      allocate(g(1:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:553.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:554.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:555.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:556.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:557.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:558.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:559.72:

      allocate(xv(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:560.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:561.72:

      allocate(vlam(1:nlam),stat=ierr)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:562.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:563.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:564.72:

      call chkvars(no,ni,x,ju)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:565.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:566.72:

      if(maxval(ju) .gt. 0)goto 10071                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:567.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:568.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:569.72:

10071 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:570.72:

      call standard(no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:571.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:572.72:

      if(flmin.ge.1.0) vlam=ulam/ys                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:573.72:

      call elnet1(parm,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:575.72:

      if(jerr.gt.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:576.72:

10080 do 10081 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:577.72:

      alm(k)=ys*alm(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:578.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:579.72:

10090 do 10091 l=1,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:580.72:

      ca(l,k)=ys*ca(l,k)/xs(ia(l))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:581.72:

10091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:582.72:

10092 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:583.72:

      a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:584.72:

10081 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:585.72:

10082 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:586.72:

      deallocate(xm,xs,g,ju,xv,vlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:587.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:588.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:589.72:

      subroutine standard (no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:590.72:

      real x(no,ni),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:591.72:

      integer ju(ni)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:593.72:

      allocate(v(1:no),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:594.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:595.72:

      w=w/sum(w)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:596.72:

      v=sqrt(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:597.72:

10100 do 10101 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:598.72:

      if(ju(j).eq.0)goto 10101                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:599.72:

      xm(j)=dot_product(w,x(:,j))                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:600.72:

      x(:,j)=v*(x(:,j)-xm(j))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:601.72:

      xv(j)=dot_product(x(:,j),x(:,j))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:602.72:

      if(isd.gt.0) xs(j)=sqrt(xv(j))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:603.72:

10101 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:604.72:

10102 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:605.72:

      if(isd .ne. 0)goto 10121                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:606.72:

      xs=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:607.72:

      goto 10131                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:608.72:

10121 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:609.72:

10140 do 10141 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:610.72:

      if(ju(j).eq.0)goto 10141                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:611.72:

      x(:,j)=x(:,j)/xs(j)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:612.72:

10141 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:613.72:

10142 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:614.72:

      xv=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:615.72:

10131 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:616.72:

10111 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:617.72:

      ym=dot_product(w,y)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:618.72:

      y=v*(y-ym)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:619.72:

      ys=sqrt(dot_product(y,y))                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:620.72:

      y=y/ys                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:621.72:

      g=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:622.72:

10150 do 10151 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:623.72:

      if(ju(j).ne.0) g(j)=dot_product(y,x(:,j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:624.72:

10151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:625.72:

10152 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:626.72:

      deallocate(v)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:627.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:628.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:629.72:

      subroutine elnet1 (beta,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,ulam,thr,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:631.72:

      parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:633.72:

      real vp(ni),g(ni),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:635.72:

      integer ju(ni),ia(nx),kin(nlam)                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:640.72:

      allocate(a(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:641.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:642.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:643.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:644.72:

      allocate(da(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:645.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:646.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:647.72:

      bta=beta                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:648.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:649.72:

      if(flmin .ge. 1.0)goto 10171                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:650.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:651.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:652.72:

10171 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:653.72:

      rsq=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:654.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:655.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:656.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:657.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:658.72:

      iz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:659.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:660.72:

10180 do 10181 m=1,nlam                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:661.72:

      if(flmin .lt. 1.0)goto 10201                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:662.72:

      alm=ulam(m)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:663.72:

      goto 10191                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:664.72:

10201 if(m .le. 2)goto 10211                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:665.72:

      alm=alm*alf                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:666.72:

      goto 10191                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:667.72:

10211 if(m .ne. 1)goto 10221                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:668.72:

      alm=big                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:669.72:

      goto 10231                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:670.72:

10221 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:671.72:

      alm=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:672.72:

10240 do 10241 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:673.72:

      if(ju(j).eq.0)goto 10241                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:674.72:

      if(vp(j).le.0.0)goto 10241                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:675.72:

      alm=max(alm,abs(g(j))/vp(j))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:676.72:

10241 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:677.72:

10242 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:678.72:

      alm=alf*alm/max(bta,1.0e-3)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:679.72:

10231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:680.72:

10191 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:681.72:

      dem=alm*omb                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:682.72:

      ab=alm*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:683.72:

      rsq0=rsq                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:684.72:

      jz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:685.72:

10250 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:686.72:

10251 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:687.72:

      if(iz*jz.ne.0) go to 10260                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:688.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:689.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:690.72:

10270 do 10271 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:691.72:

      if(ju(k).eq.0)goto 10271                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:692.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:693.72:

      u=g(k)+ak*xv(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:694.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:695.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:696.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:697.72:

      if(a(k).eq.ak)goto 10271                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:698.72:

      if(mm(k) .ne. 0)goto 10291                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:699.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:700.72:

      if(nin.gt.nx)goto 10272                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:701.72:

10300 do 10301 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:702.72:

      if(ju(j).eq.0)goto 10301                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:703.72:

      if(mm(j) .eq. 0)goto 10321                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:704.72:

      c(j,nin)=c(k,mm(j))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:705.72:

      goto 10301                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:706.72:

10321 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:707.72:

      if(j .ne. k)goto 10341                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:708.72:

      c(j,nin)=xv(j)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:709.72:

      goto 10301                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:710.72:

10341 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:711.72:

      c(j,nin)=dot_product(x(:,j),x(:,k))                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:712.72:

10301 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:713.72:

10302 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:714.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:715.72:

      ia(nin)=k                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:716.72:

10291 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:717.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:718.72:

      rsq=rsq+del*(2.0*g(k)-del*xv(k))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:719.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:720.72:

10350 do 10351 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:721.72:

      if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:722.72:

10351 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:723.72:

10352 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:724.72:

10271 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:725.72:

10272 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:726.72:

      if(dlx.lt.thr)goto 10252                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:727.72:

      if(nin.gt.nx)goto 10252                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:728.72:

      if(nlp .le. maxit)goto 10371                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:729.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:730.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:731.72:

10371 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:732.72:

10260 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:733.72:

      iz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:734.72:

      da(1:nin)=a(ia(1:nin))                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:735.72:

10380 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:736.72:

10381 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:737.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:738.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:739.72:

10390 do 10391 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:740.72:

      k=ia(l)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:741.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:742.72:

      u=g(k)+ak*xv(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:743.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:744.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:745.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:746.72:

      if(a(k).eq.ak)goto 10391                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:747.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:748.72:

      rsq=rsq+del*(2.0*g(k)-del*xv(k))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:749.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:750.72:

10400 do 10401 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:751.72:

      g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:752.72:

10401 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:753.72:

10402 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:754.72:

10391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:755.72:

10392 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:756.72:

      if(dlx.lt.thr)goto 10382                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:757.72:

      if(nlp .le. maxit)goto 10421                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:758.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:759.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:760.72:

10421 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:761.72:

      goto 10381                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:762.72:

10382 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:763.72:

      da(1:nin)=a(ia(1:nin))-da(1:nin)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:764.72:

10430 do 10431 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:765.72:

      if(mm(j).ne.0)goto 10431                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:766.72:

      if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:767.72:

10431 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:768.72:

10432 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:769.72:

      jz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:770.72:

      goto 10251                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:771.72:

10252 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:772.72:

      if(nin .le. nx)goto 10451                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:773.72:

      jerr=-10000-m                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:774.72:

      goto 10182                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:775.72:

10451 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:776.72:

      if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:777.72:

      kin(m)=nin                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:778.72:

      rsqo(m)=rsq                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:779.72:

      almo(m)=alm                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:780.72:

      lmu=m                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:781.72:

      if(m.lt.mnl)goto 10181                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:782.72:

      if(flmin.ge.1.0)goto 10181                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:783.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:784.72:

10460 do 10461 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:785.72:

      if(ao(j,m).ne.0.0) me=me+1                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:786.72:

10461 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:787.72:

10462 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:788.72:

      if(me.gt.ne)goto 10182                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:789.72:

      if(rsq-rsq0.lt.sml*rsq)goto 10182                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:790.72:

      if(rsq.gt.rsqmax)goto 10182                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:791.72:

10181 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:792.72:

10182 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:793.72:

      deallocate(a,mm,c,da)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:794.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:795.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:796.72:

      subroutine elnetn (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,th
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:798.72:

      real vp(ni),x(no,ni),y(no),w(no),ulam(nlam)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:799.72:

      real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:800.72:

      integer jd(*),ia(nx),nin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:803.72:

      allocate(xm(1:ni),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:804.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:805.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:806.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:807.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:808.72:

      allocate(xv(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:809.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:810.72:

      allocate(vlam(1:nlam),stat=ierr)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:811.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:812.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:813.72:

      call chkvars(no,ni,x,ju)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:814.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:815.72:

      if(maxval(ju) .gt. 0)goto 10481                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:816.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:817.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:818.72:

10481 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:819.72:

      call standard1(no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:820.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:821.72:

      if(flmin.ge.1.0) vlam=ulam/ys                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:822.72:

      call elnet2(parm,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:824.72:

      if(jerr.gt.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:825.72:

10490 do 10491 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:826.72:

      alm(k)=ys*alm(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:827.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:828.72:

10500 do 10501 l=1,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:829.72:

      ca(l,k)=ys*ca(l,k)/xs(ia(l))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:830.72:

10501 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:831.72:

10502 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:832.72:

      a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:833.72:

10491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:834.72:

10492 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:835.72:

      deallocate(xm,xs,ju,xv,vlam)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:836.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:837.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:838.72:

      subroutine standard1 (no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:839.72:

      real x(no,ni),y(no),w(no),xm(ni),xs(ni),xv(ni)                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:840.72:

      integer ju(ni)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:842.72:

      allocate(v(1:no),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:843.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:844.72:

      w=w/sum(w)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:845.72:

      v=sqrt(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:846.72:

10510 do 10511 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:847.72:

      if(ju(j).eq.0)goto 10511                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:848.72:

      xm(j)=dot_product(w,x(:,j))                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:849.72:

      x(:,j)=v*(x(:,j)-xm(j))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:850.72:

      xv(j)=dot_product(x(:,j),x(:,j))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:851.72:

      if(isd.gt.0) xs(j)=sqrt(xv(j))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:852.72:

10511 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:853.72:

10512 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:854.72:

      if(isd .ne. 0)goto 10531                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:855.72:

      xs=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:856.72:

      goto 10541                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:857.72:

10531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:858.72:

10550 do 10551 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:859.72:

      if(ju(j).eq.0)goto 10551                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:860.72:

      x(:,j)=x(:,j)/xs(j)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:861.72:

10551 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:862.72:

10552 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:863.72:

      xv=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:864.72:

10541 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:865.72:

10521 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:866.72:

      ym=dot_product(w,y)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:867.72:

      y=v*(y-ym)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:868.72:

      ys=sqrt(dot_product(y,y))                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:869.72:

      y=y/ys                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:870.72:

      deallocate(v)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:871.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:872.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:873.72:

      subroutine elnet2(beta,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,ulam,thr,m
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:875.72:

      parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:877.72:

      real vp(ni),y(no),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:879.72:

      integer ju(ni),ia(nx),kin(nlam)                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:882.72:

      allocate(a(1:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:883.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:884.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:885.72:

      allocate(g(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:886.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:887.72:

      allocate(ix(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:888.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:889.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:890.72:

      bta=beta                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:891.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:892.72:

      ix=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:893.72:

      if(flmin .ge. 1.0)goto 10571                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:894.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:895.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:896.72:

10571 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:897.72:

      rsq=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:898.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:899.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:900.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:901.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:902.72:

      iz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:903.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:904.72:

      alm=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:905.72:

10580 do 10581 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:906.72:

      if(ju(j).eq.0)goto 10581                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:907.72:

      g(j)=abs(dot_product(y,x(:,j)))                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:908.72:

10581 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:909.72:

10582 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:910.72:

10590 do 10591 m=1,nlam                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:911.72:

      alm0=alm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:912.72:

      if(flmin .lt. 1.0)goto 10611                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:913.72:

      alm=ulam(m)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:914.72:

      goto 10601                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:915.72:

10611 if(m .le. 2)goto 10621                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:916.72:

      alm=alm*alf                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:917.72:

      goto 10601                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:918.72:

10621 if(m .ne. 1)goto 10631                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:919.72:

      alm=big                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:920.72:

      goto 10641                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:921.72:

10631 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:922.72:

      alm0=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:923.72:

10650 do 10651 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:924.72:

      if(ju(j).eq.0)goto 10651                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:925.72:

      if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:926.72:

10651 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:927.72:

10652 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:928.72:

      alm0=alm0/max(bta,1.0e-3)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:929.72:

      alm=alf*alm0                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:930.72:

10641 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:931.72:

10601 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:932.72:

      dem=alm*omb                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:933.72:

      ab=alm*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:934.72:

      rsq0=rsq                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:935.72:

      jz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:936.72:

      tlam=bta*(2.0*alm-alm0)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:937.72:

10660 do 10661 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:938.72:

      if(ix(k).eq.1)goto 10661                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:939.72:

      if(ju(k).eq.0)goto 10661                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:940.72:

      if(g(k).gt.tlam*vp(k)) ix(k)=1                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:941.72:

10661 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:942.72:

10662 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:943.72:

10670 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:944.72:

10671 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:945.72:

      if(iz*jz.ne.0) go to 10260                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:946.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:947.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:948.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:949.72:

10690 do 10691 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:950.72:

      if(ix(k).eq.0)goto 10691                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:951.72:

      gk=dot_product(y,x(:,k))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:952.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:953.72:

      u=gk+ak*xv(k)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:954.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:955.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:956.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:957.72:

      if(a(k).eq.ak)goto 10691                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:958.72:

      if(mm(k) .ne. 0)goto 10711                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:959.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:960.72:

      if(nin.gt.nx)goto 10692                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:961.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:962.72:

      ia(nin)=k                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:963.72:

10711 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:964.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:965.72:

      rsq=rsq+del*(2.0*gk-del*xv(k))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:966.72:

      y=y-del*x(:,k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:967.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:968.72:

10691 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:969.72:

10692 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:970.72:

      if(nin.gt.nx)goto 10672                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:971.72:

      if(dlx .ge. thr)goto 10731                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:972.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:973.72:

10740 do 10741 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:974.72:

      if(ix(k).eq.1)goto 10741                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:975.72:

      if(ju(k).eq.0)goto 10741                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:976.72:

      g(k)=abs(dot_product(y,x(:,k)))                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:977.72:

      if(g(k) .le. ab*vp(k))goto 10761                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:978.72:

      ix(k)=1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:979.72:

      ixx=1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:980.72:

10761 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:981.72:

10741 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:982.72:

10742 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:983.72:

      if(ixx.eq.1) go to 10680                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:984.72:

      goto 10672                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:985.72:

10731 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:986.72:

      if(nlp .le. maxit)goto 10781                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:987.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:988.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:989.72:

10781 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:990.72:

10260 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:991.72:

      iz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:992.72:

10790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:993.72:

10791 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:994.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:995.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:996.72:

10800 do 10801 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:997.72:

      k=ia(l)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:998.72:

      gk=dot_product(y,x(:,k))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:999.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1000.72:

      u=gk+ak*xv(k)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1001.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1002.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1003.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1004.72:

      if(a(k).eq.ak)goto 10801                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1005.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1006.72:

      rsq=rsq+del*(2.0*gk-del*xv(k))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1007.72:

      y=y-del*x(:,k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1008.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1009.72:

10801 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1010.72:

10802 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1011.72:

      if(dlx.lt.thr)goto 10792                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1012.72:

      if(nlp .le. maxit)goto 10821                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1013.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1014.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1015.72:

10821 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1016.72:

      goto 10791                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1017.72:

10792 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1018.72:

      jz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1019.72:

      goto 10671                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1020.72:

10672 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1021.72:

      if(nin .le. nx)goto 10841                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1022.72:

      jerr=-10000-m                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1023.72:

      goto 10592                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1024.72:

10841 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1025.72:

      if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1026.72:

      kin(m)=nin                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1027.72:

      rsqo(m)=rsq                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1028.72:

      almo(m)=alm                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1029.72:

      lmu=m                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1030.72:

      if(m.lt.mnl)goto 10591                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1031.72:

      if(flmin.ge.1.0)goto 10591                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1032.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1033.72:

10850 do 10851 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1034.72:

      if(ao(j,m).ne.0.0) me=me+1                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1035.72:

10851 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1036.72:

10852 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1037.72:

      if(me.gt.ne)goto 10592                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1038.72:

      if(rsq-rsq0.lt.sml*rsq)goto 10592                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1039.72:

      if(rsq.gt.rsqmax)goto 10592                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1040.72:

10591 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1041.72:

10592 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1042.72:

      deallocate(a,mm,g,ix)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1043.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1044.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1045.72:

      subroutine chkvars(no,ni,x,ju)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1046.72:

      real x(no,ni)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1047.72:

      integer ju(ni)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1048.72:

10860 do 10861 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1049.72:

      ju(j)=0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1050.72:

      t=x(1,j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1051.72:

10870 do 10871 i=2,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1052.72:

      if(x(i,j).eq.t)goto 10871                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1053.72:

      ju(j)=1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1054.72:

      goto 10872                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1055.72:

10871 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1056.72:

10872 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1057.72:

10861 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1058.72:

10862 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1059.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1060.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1061.72:

      subroutine uncomp(ni,ca,ia,nin,a)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1062.72:

      real ca(*),a(ni)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1063.72:

      integer ia(*)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1064.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1065.72:

      if(nin.gt.0) a(ia(1:nin))=ca(1:nin)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1066.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1067.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1068.72:

      subroutine modval(a0,ca,ia,nin,n,x,f)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1069.72:

      real ca(nin),x(n,*),f(n)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1070.72:

      integer ia(nin)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1071.72:

      f=a0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1072.72:

      if(nin.le.0) return                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1073.72:

10880 do 10881 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1074.72:

      f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1075.72:

10881 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1076.72:

10882 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1077.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1078.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1079.72:

      subroutine spelnet  (ka,parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,fl
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1081.72:

      real x(*),y(no),w(no),vp(ni),ulam(nlam)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1082.72:

      real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1083.72:

      integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1085.72:

      if(maxval(vp) .gt. 0.0)goto 10901                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1086.72:

      jerr=10000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1087.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1088.72:

10901 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1089.72:

      allocate(vq(1:ni),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1090.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1091.72:

      vq=max(0.0,vp)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1092.72:

      vq=vq*ni/sum(vq)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1093.72:

      if(ka .ne. 1)goto 10921                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1094.72:

      call spelnetu  (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1096.72:

      goto 10931                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1097.72:

10921 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1098.72:

      call spelnetn (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1100.72:

10931 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1101.72:

10911 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1102.72:

      deallocate(vq)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1103.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1104.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1105.72:

      subroutine spelnetu  (parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmi
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1107.72:

      real x(*),y(no),w(no),vp(ni),ulam(nlam)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1108.72:

      real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1109.72:

      integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1112.72:

      allocate(g(1:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1113.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1114.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1115.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1116.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1117.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1118.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1119.72:

      allocate(xv(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1120.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1121.72:

      allocate(vlam(1:nlam),stat=ierr)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1122.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1123.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1124.72:

      call spchkvars(no,ni,x,ix,ju)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1125.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1126.72:

      if(maxval(ju) .gt. 0)goto 10951                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1127.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1128.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1129.72:

10951 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1130.72:

      call spstandard(no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,jerr)   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1131.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1132.72:

      if(flmin.ge.1.0) vlam=ulam/ys                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1133.72:

      call spelnet1(parm,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1135.72:

      if(jerr.gt.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1136.72:

10960 do 10961 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1137.72:

      alm(k)=ys*alm(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1138.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1139.72:

10970 do 10971 l=1,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1140.72:

      ca(l,k)=ys*ca(l,k)/xs(ia(l))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1141.72:

10971 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1142.72:

10972 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1143.72:

      a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1144.72:

10961 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1145.72:

10962 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1146.72:

      deallocate(xm,xs,g,ju,xv,vlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1147.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1148.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1149.72:

      subroutine spstandard (no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,j
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1151.72:

      real x(*),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1152.72:

      integer ix(*),jx(*),ju(ni)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1153.72:

      w=w/sum(w)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1154.72:

10980 do 10981 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1155.72:

      if(ju(j).eq.0)goto 10981                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1156.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1157.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1158.72:

      xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1159.72:

      xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1160.72:

      if(isd.gt.0) xs(j)=sqrt(xv(j))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1161.72:

10981 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1162.72:

10982 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1163.72:

      if(isd .ne. 0)goto 11001                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1164.72:

      xs=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1165.72:

      goto 11011                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1166.72:

11001 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1167.72:

      xv=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1168.72:

11011 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1169.72:

10991 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1170.72:

      ym=dot_product(w,y)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1171.72:

      y=y-ym                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1172.72:

      ys=sqrt(dot_product(w,y**2))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1173.72:

      y=y/ys                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1174.72:

      g=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1175.72:

11020 do 11021 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1176.72:

      if(ju(j).eq.0)goto 11021                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1177.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1178.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1179.72:

      g(j)=dot_product(w(jx(jb:je))*y(jx(jb:je)),x(jb:je))/xs(j)        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1180.72:

11021 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1181.72:

11022 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1182.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1183.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1184.72:

      subroutine spelnet1(beta,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1186.72:

      parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1188.72:

      real g(ni),vp(ni),x(*),ulam(nlam),w(no)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1189.72:

      real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1190.72:

      integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1195.72:

      allocate(a(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1196.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1197.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1198.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1199.72:

      allocate(da(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1200.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1201.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1202.72:

      bta=beta                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1203.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1204.72:

      if(flmin .ge. 1.0)goto 11041                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1205.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1206.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1207.72:

11041 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1208.72:

      rsq=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1209.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1210.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1211.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1212.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1213.72:

      iz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1214.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1215.72:

11050 do 11051 m=1,nlam                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1216.72:

      if(flmin .lt. 1.0)goto 11071                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1217.72:

      alm=ulam(m)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1218.72:

      goto 11061                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1219.72:

11071 if(m .le. 2)goto 11081                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1220.72:

      alm=alm*alf                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1221.72:

      goto 11061                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1222.72:

11081 if(m .ne. 1)goto 11091                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1223.72:

      alm=big                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1224.72:

      goto 11101                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1225.72:

11091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1226.72:

      alm=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1227.72:

11110 do 11111 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1228.72:

      if(ju(j).eq.0)goto 11111                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1229.72:

      if(vp(j).le.0.0)goto 11111                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1230.72:

      alm=max(alm,abs(g(j))/vp(j))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1231.72:

11111 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1232.72:

11112 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1233.72:

      alm=alf*alm/max(bta,1.0e-3)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1234.72:

11101 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1235.72:

11061 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1236.72:

      dem=alm*omb                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1237.72:

      ab=alm*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1238.72:

      rsq0=rsq                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1239.72:

      jz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1240.72:

11120 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1241.72:

11121 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1242.72:

      if(iz*jz.ne.0) go to 10260                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1243.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1244.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1245.72:

11130 do 11131 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1246.72:

      if(ju(k).eq.0)goto 11131                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1247.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1248.72:

      u=g(k)+ak*xv(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1249.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1250.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1251.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1252.72:

      if(a(k).eq.ak)goto 11131                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1253.72:

      if(mm(k) .ne. 0)goto 11151                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1254.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1255.72:

      if(nin.gt.nx)goto 11132                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1256.72:

11160 do 11161 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1257.72:

      if(ju(j).eq.0)goto 11161                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1258.72:

      if(mm(j) .eq. 0)goto 11181                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1259.72:

      c(j,nin)=c(k,mm(j))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1260.72:

      goto 11161                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1261.72:

11181 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1262.72:

      if(j .ne. k)goto 11201                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1263.72:

      c(j,nin)=xv(j)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1264.72:

      goto 11161                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1265.72:

11201 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1266.72:

      c(j,nin)=  (row_prod(j,k,ix,jx,x,w)-xm(j)*xm(k))/(xs(j)*xs(k))    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1267.72:

11161 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1268.72:

11162 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1269.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1270.72:

      ia(nin)=k                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1271.72:

11151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1272.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1273.72:

      rsq=rsq+del*(2.0*g(k)-del*xv(k))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1274.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1275.72:

11210 do 11211 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1276.72:

      if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1277.72:

11211 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1278.72:

11212 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1279.72:

11131 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1280.72:

11132 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1281.72:

      if(dlx.lt.thr)goto 11122                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1282.72:

      if(nin.gt.nx)goto 11122                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1283.72:

      if(nlp .le. maxit)goto 11231                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1284.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1285.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1286.72:

11231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1287.72:

10260 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1288.72:

      iz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1289.72:

      da(1:nin)=a(ia(1:nin))                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1290.72:

11240 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1291.72:

11241 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1292.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1293.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1294.72:

11250 do 11251 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1295.72:

      k=ia(l)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1296.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1297.72:

      u=g(k)+ak*xv(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1298.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1299.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1300.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1301.72:

      if(a(k).eq.ak)goto 11251                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1302.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1303.72:

      rsq=rsq+del*(2.0*g(k)-del*xv(k))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1304.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1305.72:

11260 do 11261 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1306.72:

      g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1307.72:

11261 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1308.72:

11262 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1309.72:

11251 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1310.72:

11252 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1311.72:

      if(dlx.lt.thr)goto 11242                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1312.72:

      if(nlp .le. maxit)goto 11281                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1313.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1314.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1315.72:

11281 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1316.72:

      goto 11241                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1317.72:

11242 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1318.72:

      da(1:nin)=a(ia(1:nin))-da(1:nin)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1319.72:

11290 do 11291 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1320.72:

      if(mm(j).ne.0)goto 11291                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1321.72:

      if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1322.72:

11291 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1323.72:

11292 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1324.72:

      jz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1325.72:

      goto 11121                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1326.72:

11122 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1327.72:

      if(nin .le. nx)goto 11311                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1328.72:

      jerr=-10000-m                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1329.72:

      goto 11052                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1330.72:

11311 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1331.72:

      if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1332.72:

      kin(m)=nin                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1333.72:

      rsqo(m)=rsq                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1334.72:

      almo(m)=alm                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1335.72:

      lmu=m                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1336.72:

      if(m.lt.mnl)goto 11051                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1337.72:

      if(flmin.ge.1.0)goto 11051                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1338.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1339.72:

11320 do 11321 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1340.72:

      if(ao(j,m).ne.0.0) me=me+1                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1341.72:

11321 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1342.72:

11322 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1343.72:

      if(me.gt.ne)goto 11052                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1344.72:

      if(rsq-rsq0.lt.sml*rsq)goto 11052                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1345.72:

      if(rsq.gt.rsqmax)goto 11052                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1346.72:

11051 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1347.72:

11052 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1348.72:

      deallocate(a,mm,c,da)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1349.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1350.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1351.72:

      subroutine spelnetn(parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmin,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1353.72:

      real x(*),vp(ni),y(no),w(no),ulam(nlam)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1354.72:

      real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1355.72:

      integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1358.72:

      allocate(xm(1:ni),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1359.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1360.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1361.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1362.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1363.72:

      allocate(xv(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1364.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1365.72:

      allocate(vlam(1:nlam),stat=ierr)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1366.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1367.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1368.72:

      call spchkvars(no,ni,x,ix,ju)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1369.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1370.72:

      if(maxval(ju) .gt. 0)goto 11341                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1371.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1372.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1373.72:

11341 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1374.72:

      call spstandard1(no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,jerr)    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1375.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1376.72:

      if(flmin.ge.1.0) vlam=ulam/ys                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1377.72:

      call spelnet2(parm,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1379.72:

      if(jerr.gt.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1380.72:

11350 do 11351 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1381.72:

      alm(k)=ys*alm(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1382.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1383.72:

11360 do 11361 l=1,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1384.72:

      ca(l,k)=ys*ca(l,k)/xs(ia(l))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1385.72:

11361 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1386.72:

11362 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1387.72:

      a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1388.72:

11351 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1389.72:

11352 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1390.72:

      deallocate(xm,xs,ju,xv,vlam)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1391.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1392.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1393.72:

      subroutine spstandard1 (no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,je
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1395.72:

      real x(*),y(no),w(no),xm(ni),xs(ni),xv(ni)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1396.72:

      integer ix(*),jx(*),ju(ni)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1397.72:

      w=w/sum(w)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1398.72:

11370 do 11371 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1399.72:

      if(ju(j).eq.0)goto 11371                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1400.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1401.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1402.72:

      xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1403.72:

      xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1404.72:

      if(isd.gt.0) xs(j)=sqrt(xv(j))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1405.72:

11371 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1406.72:

11372 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1407.72:

      if(isd .ne. 0)goto 11391                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1408.72:

      xs=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1409.72:

      goto 11401                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1410.72:

11391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1411.72:

      xv=1.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1412.72:

11401 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1413.72:

11381 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1414.72:

      ym=dot_product(w,y)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1415.72:

      y=y-ym                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1416.72:

      ys=sqrt(dot_product(w,y**2))                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1417.72:

      y=y/ys                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1418.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1419.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1420.72:

      subroutine spelnet2(beta,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1422.72:

      parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1424.72:

      real y(no),w(no),x(*),vp(ni),ulam(nlam)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1425.72:

      real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1426.72:

      integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1429.72:

      allocate(a(1:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1430.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1431.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1432.72:

      allocate(g(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1433.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1434.72:

      allocate(iy(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1435.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1436.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1437.72:

      bta=beta                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1438.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1439.72:

      alm=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1440.72:

      iy=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1441.72:

      if(flmin .ge. 1.0)goto 11421                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1442.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1443.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1444.72:

11421 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1445.72:

      rsq=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1446.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1447.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1448.72:

      o=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1449.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1450.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1451.72:

      iz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1452.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1453.72:

11430 do 11431 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1454.72:

      if(ju(j).eq.0)goto 11431                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1455.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1456.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1457.72:

      g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j)) 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1458.72:

11431 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1459.72:

11432 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1460.72:

11440 do 11441 m=1,nlam                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1461.72:

      alm0=alm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1462.72:

      if(flmin .lt. 1.0)goto 11461                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1463.72:

      alm=ulam(m)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1464.72:

      goto 11451                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1465.72:

11461 if(m .le. 2)goto 11471                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1466.72:

      alm=alm*alf                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1467.72:

      goto 11451                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1468.72:

11471 if(m .ne. 1)goto 11481                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1469.72:

      alm=big                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1470.72:

      goto 11491                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1471.72:

11481 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1472.72:

      alm0=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1473.72:

11500 do 11501 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1474.72:

      if(ju(j).eq.0)goto 11501                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1475.72:

      if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1476.72:

11501 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1477.72:

11502 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1478.72:

      alm0=alm0/max(bta,1.0e-3)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1479.72:

      alm=alf*alm0                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1480.72:

11491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1481.72:

11451 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1482.72:

      dem=alm*omb                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1483.72:

      ab=alm*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1484.72:

      rsq0=rsq                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1485.72:

      jz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1486.72:

      tlam=bta*(2.0*alm-alm0)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1487.72:

11510 do 11511 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1488.72:

      if(iy(k).eq.1)goto 11511                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1489.72:

      if(ju(k).eq.0)goto 11511                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1490.72:

      if(g(k).gt.tlam*vp(k)) iy(k)=1                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1491.72:

11511 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1492.72:

11512 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1493.72:

11520 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1494.72:

11521 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1495.72:

      if(iz*jz.ne.0) go to 10260                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1496.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1497.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1498.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1499.72:

11530 do 11531 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1500.72:

      if(iy(k).eq.0)goto 11531                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1501.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1502.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1503.72:

      gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1504.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1505.72:

      u=gk+ak*xv(k)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1506.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1507.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1508.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1509.72:

      if(a(k).eq.ak)goto 11531                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1510.72:

      if(mm(k) .ne. 0)goto 11551                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1511.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1512.72:

      if(nin.gt.nx)goto 11532                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1513.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1514.72:

      ia(nin)=k                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1515.72:

11551 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1516.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1517.72:

      rsq=rsq+del*(2.0*gk-del*xv(k))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1518.72:

      y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1519.72:

      o=o+del*xm(k)/xs(k)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1520.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1521.72:

11531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1522.72:

11532 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1523.72:

      if(nin.gt.nx)goto 11522                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1524.72:

      if(dlx .ge. thr)goto 11571                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1525.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1526.72:

11580 do 11581 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1527.72:

      if(iy(j).eq.1)goto 11581                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1528.72:

      if(ju(j).eq.0)goto 11581                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1529.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1530.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1531.72:

      g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j)) 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1532.72:

      if(g(j) .le. ab*vp(j))goto 11601                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1533.72:

      iy(j)=1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1534.72:

      ixx=1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1535.72:

11601 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1536.72:

11581 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1537.72:

11582 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1538.72:

      if(ixx.eq.1) go to 10680                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1539.72:

      goto 11522                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1540.72:

11571 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1541.72:

      if(nlp .le. maxit)goto 11621                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1542.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1543.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1544.72:

11621 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1545.72:

10260 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1546.72:

      iz=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1547.72:

11630 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1548.72:

11631 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1549.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1550.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1551.72:

11640 do 11641 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1552.72:

      k=ia(l)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1553.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1554.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1555.72:

      gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1556.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1557.72:

      u=gk+ak*xv(k)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1558.72:

      v=abs(u)-vp(k)*ab                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1559.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1560.72:

      if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1561.72:

      if(a(k).eq.ak)goto 11641                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1562.72:

      del=a(k)-ak                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1563.72:

      rsq=rsq+del*(2.0*gk-del*xv(k))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1564.72:

      y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1565.72:

      o=o+del*xm(k)/xs(k)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1566.72:

      dlx=max(xv(k)*del**2,dlx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1567.72:

11641 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1568.72:

11642 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1569.72:

      if(dlx.lt.thr)goto 11632                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1570.72:

      if(nlp .le. maxit)goto 11661                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1571.72:

      jerr=-m                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1572.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1573.72:

11661 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1574.72:

      goto 11631                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1575.72:

11632 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1576.72:

      jz=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1577.72:

      goto 11521                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1578.72:

11522 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1579.72:

      if(nin .le. nx)goto 11681                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1580.72:

      jerr=-10000-m                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1581.72:

      goto 11442                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1582.72:

11681 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1583.72:

      if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1584.72:

      kin(m)=nin                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1585.72:

      rsqo(m)=rsq                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1586.72:

      almo(m)=alm                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1587.72:

      lmu=m                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1588.72:

      if(m.lt.mnl)goto 11441                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1589.72:

      if(flmin.ge.1.0)goto 11441                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1590.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1591.72:

11690 do 11691 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1592.72:

      if(ao(j,m).ne.0.0) me=me+1                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1593.72:

11691 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1594.72:

11692 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1595.72:

      if(me.gt.ne)goto 11442                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1596.72:

      if(rsq-rsq0.lt.sml*rsq)goto 11442                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1597.72:

      if(rsq.gt.rsqmax)goto 11442                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1598.72:

11441 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1599.72:

11442 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1600.72:

      deallocate(a,mm,g,iy)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1601.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1602.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1603.72:

      subroutine spchkvars(no,ni,x,ix,ju)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1604.72:

      real x(*)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1605.72:

      integer ix(*),ju(ni)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1606.72:

11700 do 11701 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1607.72:

      ju(j)=0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1608.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1609.72:

      nj=ix(j+1)-jb                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1610.72:

      if(nj.eq.0)goto 11701                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1611.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1612.72:

      if(nj .ge. no)goto 11721                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1613.72:

11730 do 11731 i=jb,je                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1614.72:

      if(x(i).eq.0.0)goto 11731                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1615.72:

      ju(j)=1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1616.72:

      goto 11732                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1617.72:

11731 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1618.72:

11732 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1619.72:

      goto 11741                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1620.72:

11721 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1621.72:

      t=x(jb)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1622.72:

11750 do 11751 i=jb+1,je                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1623.72:

      if(x(i).eq.t)goto 11751                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1624.72:

      ju(j)=1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1625.72:

      goto 11752                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1626.72:

11751 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1627.72:

11752 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1628.72:

11741 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1629.72:

11711 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1630.72:

11701 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1631.72:

11702 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1632.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1633.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1634.72:

      subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1635.72:

      real ca(*),x(*),f(n)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1636.72:

      integer ia(*),ix(*),jx(*)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1637.72:

      f=a0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1638.72:

11760 do 11761 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1639.72:

      k=ia(j)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1640.72:

      kb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1641.72:

      ke=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1642.72:

      f(jx(kb:ke))=f(jx(kb:ke))+ca(j)*x(kb:ke)                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1643.72:

11761 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1644.72:

11762 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1645.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1646.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1647.72:

      function row_prod(i,j,ia,ja,ra,w)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1648.72:

      integer ia(*),ja(*)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1649.72:

      real ra(*),w(*)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1650.72:

      row_prod=dot(ra(ia(i)),ra(ia(j)),ja(ia(i)),ja(ia(j)),  ia(i+1)-ia(
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1652.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1653.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1654.72:

      function dot(x,y,mx,my,nx,ny,w)                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1655.72:

      real x(*),y(*),w(*)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1656.72:

      integer mx(*),my(*)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1657.72:

      i=1                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1658.72:

      j=i                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1659.72:

      s=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1660.72:

11770 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1661.72:

11771 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1662.72:

11780 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1663.72:

11781 if(mx(i).ge.my(j))goto 11782                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1664.72:

      i=i+1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1665.72:

      if(i.gt.nx) go to 11790                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1666.72:

      goto 11781                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1667.72:

11782 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1668.72:

      if(mx(i).eq.my(j)) go to 11800                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1669.72:

11810 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1670.72:

11811 if(my(j).ge.mx(i))goto 11812                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1671.72:

      j=j+1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1672.72:

      if(j.gt.ny) go to 11790                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1673.72:

      goto 11811                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1674.72:

11812 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1675.72:

      if(mx(i).eq.my(j)) go to 11800                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1676.72:

      goto 11771                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1677.72:

11800 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1678.72:

      s=s+w(mx(i))*x(i)*y(j)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1679.72:

      i=i+1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1680.72:

      if(i.gt.nx)goto 11772                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1681.72:

      j=j+1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1682.72:

      if(j.gt.ny)goto 11772                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1683.72:

      goto 11771                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1684.72:

11772 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1685.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1686.72:

      dot=s                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1687.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1688.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1689.72:

      subroutine lognet (parm,no,ni,nc,x,y,g,jd,vp,ne,nx,nlam,flmin,ulam
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1691.72:

      real x(no,ni),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1692.72:

      real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1693.72:

      integer jd(*),ia(nx),nin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1696.72:

      if(maxval(vp) .gt. 0.0)goto 11831                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1697.72:

      jerr=10000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1698.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1699.72:

11831 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1700.72:

      allocate(ww(1:no),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1701.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1702.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1703.72:

      allocate(vq(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1704.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1705.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1706.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1707.72:

      if(isd .le. 0)goto 11851                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1708.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1709.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1710.72:

11851 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1711.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1712.72:

      call chkvars(no,ni,x,ju)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1713.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1714.72:

      if(maxval(ju) .gt. 0)goto 11871                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1715.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1716.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1717.72:

11871 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1718.72:

      vq=max(0.0,vp)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1719.72:

      vq=vq*ni/sum(vq)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1720.72:

11880 do 11881 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1721.72:

      ww(i)=sum(y(i,:))                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1722.72:

      y(i,:)=y(i,:)/ww(i)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1723.72:

11881 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1724.72:

11882 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1725.72:

      sw=sum(ww)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1726.72:

      ww=ww/sw                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1727.72:

      call lstandard1(no,ni,x,ww,ju,isd,xm,xs)                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1728.72:

      if(nc .ne. 1)goto 11901                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1729.72:

      call lognet2n(parm,no,ni,x,y(:,1),g(:,1),ww,ju,vq,ne,nx,nlam,flmin
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1731.72:

      goto 11911                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1732.72:

11901 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1733.72:

      call lognetn(parm,no,ni,nc,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,th
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1735.72:

11911 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1736.72:

11891 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1737.72:

      if(jerr.gt.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1738.72:

      dev0=2.0*sw*dev0                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1739.72:

11920 do 11921 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1740.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1741.72:

11930 do 11931 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1742.72:

      if(isd .le. 0)goto 11951                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1743.72:

11960 do 11961 l=1,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1744.72:

      ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1745.72:

11961 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1746.72:

11962 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1747.72:

11951 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1748.72:

      a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1749.72:

11931 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1750.72:

11932 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1751.72:

11921 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1752.72:

11922 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1753.72:

      deallocate(ww,ju,vq,xm)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1754.72:

      if(isd.gt.0) deallocate(xs)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1755.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1756.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1757.72:

      subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs)                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1758.72:

      real x(no,ni),w(no),xm(ni),xs(ni)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1759.72:

      integer ju(ni)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1760.72:

11970 do 11971 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1761.72:

      if(ju(j).eq.0)goto 11971                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1762.72:

      xm(j)=dot_product(w,x(:,j))                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1763.72:

      x(:,j)=x(:,j)-xm(j)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1764.72:

      if(isd .le. 0)goto 11991                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1765.72:

      xs(j)=sqrt(dot_product(w,x(:,j)**2))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1766.72:

      x(:,j)=x(:,j)/xs(j)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1767.72:

11991 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1768.72:

11971 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1769.72:

11972 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1770.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1771.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1772.72:

      subroutine lognet2n(parm,no,ni,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ulam
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1774.72:

      parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1776.72:

      real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1777.72:

      real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1778.72:

      integer ju(ni),m(nx),kin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1781.72:

      allocate(b(0:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1782.72:

      allocate(xv(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1783.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1784.72:

      allocate(ga(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1785.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1786.72:

      allocate(bs(0:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1787.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1788.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1789.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1790.72:

      allocate(ixx(1:ni),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1791.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1792.72:

      allocate(r(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1793.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1794.72:

      allocate(v(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1795.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1796.72:

      allocate(q(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1797.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1798.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1799.72:

      fmax=log(1.0/pmin-1.0)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1800.72:

      fmin=-fmax                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1801.72:

      vmin=(1.0+pmin)*pmin*(1.0-pmin)                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1802.72:

      bta=parm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1803.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1804.72:

      q0=dot_product(w,y)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1805.72:

      if(q0 .gt. pmin)goto 12011                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1806.72:

      jerr=8001                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1807.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1808.72:

12011 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1809.72:

      if(q0 .lt. 1.0-pmin)goto 12031                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1810.72:

      jerr=9001                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1811.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1812.72:

12031 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1813.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1814.72:

      al=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1815.72:

      bz=log(q0/(1.0-q0))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1816.72:

      if(nonzero(no,g) .ne. 0)goto 12051                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1817.72:

      vi=q0*(1.0-q0)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1818.72:

      b(0)=bz                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1819.72:

      v=vi*w                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1820.72:

      r=w*(y-q0)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1821.72:

      q=q0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1822.72:

      xmz=vi                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1823.72:

      dev1=-(bz*q0+log(1.0-q0))                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1824.72:

      goto 12061                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1825.72:

12051 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1826.72:

      b(0)=azero(no,y,g,w,jerr)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1827.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1828.72:

      q=1.0/(1.0+exp(-b(0)-g))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1829.72:

      v=w*q*(1.0-q)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1830.72:

      r=w*(y-q)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1831.72:

      xmz=sum(v)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1832.72:

      dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1833.72:

12061 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1834.72:

12041 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1835.72:

      if(kopt .le. 0)goto 12081                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1836.72:

      if(isd .le. 0)goto 12101                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1837.72:

      xv=0.25                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1838.72:

      goto 12111                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1839.72:

12101 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1840.72:

12120 do 12121 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1841.72:

      if(ju(j).ne.0) xv(j)=0.25*dot_product(w,x(:,j)**2)                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1842.72:

12121 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1843.72:

12122 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1844.72:

12111 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1845.72:

12091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1846.72:

12081 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1847.72:

      dev0=dev1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1848.72:

12130 do 12131 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1849.72:

      if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1850.72:

      if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1851.72:

12131 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1852.72:

12132 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1853.72:

      if(flmin .ge. 1.0)goto 12151                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1854.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1855.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1856.72:

12151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1857.72:

      m=0                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1858.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1859.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1860.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1861.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1862.72:

      bs=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1863.72:

      b(1:ni)=0.0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1864.72:

      shr=shri*dev0                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1865.72:

12160 do 12161 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1866.72:

      if(ju(j).eq.0)goto 12161                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1867.72:

      ga(j)=abs(dot_product(r,x(:,j)))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1868.72:

12161 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1869.72:

12162 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1870.72:

12170 do 12171 ilm=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1871.72:

      al0=al                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1872.72:

      if(flmin .lt. 1.0)goto 12191                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1873.72:

      al=ulam(ilm)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1874.72:

      goto 12181                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1875.72:

12191 if(ilm .le. 2)goto 12201                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1876.72:

      al=al*alf                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1877.72:

      goto 12181                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1878.72:

12201 if(ilm .ne. 1)goto 12211                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1879.72:

      al=big                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1880.72:

      goto 12221                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1881.72:

12211 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1882.72:

      al0=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1883.72:

12230 do 12231 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1884.72:

      if(ju(j).eq.0)goto 12231                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1885.72:

      if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1886.72:

12231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1887.72:

12232 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1888.72:

      al0=al0/max(bta,1.0e-3)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1889.72:

      al=alf*al0                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1890.72:

12221 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1891.72:

12181 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1892.72:

      al2=al*omb                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1893.72:

      al1=al*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1894.72:

      tlam=bta*(2.0*al-al0)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1895.72:

12240 do 12241 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1896.72:

      if(ixx(k).eq.1)goto 12241                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1897.72:

      if(ju(k).eq.0)goto 12241                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1898.72:

      if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1899.72:

12241 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1900.72:

12242 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1901.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1902.72:

12250 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1903.72:

12251 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1904.72:

      bs(0)=b(0)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1905.72:

      if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1906.72:

      if(kopt .ne. 0)goto 12271                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1907.72:

12280 do 12281 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1908.72:

      if(ixx(j).gt.0) xv(j)=dot_product(v,x(:,j)**2)                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1909.72:

12281 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1910.72:

12282 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1911.72:

12271 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1912.72:

12290 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1913.72:

12291 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1914.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1915.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1916.72:

12300 do 12301 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1917.72:

      if(ixx(k).eq.0)goto 12301                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1918.72:

      bk=b(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1919.72:

      gk=dot_product(r,x(:,k))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1920.72:

      u=gk+xv(k)*b(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1921.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1922.72:

      if(au .gt. 0.0)goto 12321                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1923.72:

      b(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1924.72:

      goto 12331                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1925.72:

12321 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1926.72:

      b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1927.72:

12331 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1928.72:

12311 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1929.72:

      d=b(k)-bk                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1930.72:

      if(abs(d).le.0.0)goto 12301                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1931.72:

      dlx=max(dlx,xv(k)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1932.72:

      r=r-d*v*x(:,k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1933.72:

      if(mm(k) .ne. 0)goto 12351                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1934.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1935.72:

      if(nin.gt.nx)goto 12302                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1936.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1937.72:

      m(nin)=k                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1938.72:

12351 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1939.72:

12301 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1940.72:

12302 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1941.72:

      if(nin.gt.nx)goto 12292                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1942.72:

      d=sum(r)/xmz                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1943.72:

      if(d .eq. 0.0)goto 12371                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1944.72:

      b(0)=b(0)+d                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1945.72:

      dlx=max(dlx,xmz*d**2)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1946.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1947.72:

12371 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1948.72:

      if(dlx.lt.shr)goto 12292                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1949.72:

      if(nlp .le. maxit)goto 12391                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1950.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1951.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1952.72:

12391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1953.72:

12400 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1954.72:

12401 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1955.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1956.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1957.72:

12410 do 12411 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1958.72:

      k=m(l)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1959.72:

      bk=b(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1960.72:

      gk=dot_product(r,x(:,k))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1961.72:

      u=gk+xv(k)*b(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1962.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1963.72:

      if(au .gt. 0.0)goto 12431                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1964.72:

      b(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1965.72:

      goto 12441                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1966.72:

12431 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1967.72:

      b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1968.72:

12441 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1969.72:

12421 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1970.72:

      d=b(k)-bk                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1971.72:

      if(abs(d).le.0.0)goto 12411                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1972.72:

      dlx=max(dlx,xv(k)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1973.72:

      r=r-d*v*x(:,k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1974.72:

12411 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1975.72:

12412 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1976.72:

      d=sum(r)/xmz                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1977.72:

      if(d .eq. 0.0)goto 12461                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1978.72:

      b(0)=b(0)+d                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1979.72:

      dlx=max(dlx,xmz*d**2)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1980.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1981.72:

12461 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1982.72:

      if(dlx.lt.shr)goto 12402                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1983.72:

      if(nlp .le. maxit)goto 12481                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1984.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1985.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1986.72:

12481 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1987.72:

      goto 12401                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1988.72:

12402 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1989.72:

      goto 12291                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1990.72:

12292 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1991.72:

      if(nin.gt.nx)goto 12252                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1992.72:

12490 do 12491 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1993.72:

      fi=b(0)+g(i)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1994.72:

      if(nin.gt.0) fi=fi+dot_product(b(m(1:nin)),x(i,m(1:nin)))         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1995.72:

      if(fi .ge. fmin)goto 12511                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1996.72:

      q(i)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1997.72:

      goto 12501                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1998.72:

12511 if(fi .le. fmax)goto 12521                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:1999.72:

      q(i)=1.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2000.72:

      goto 12531                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2001.72:

12521 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2002.72:

      q(i)=1.0/(1.0+exp(-fi))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2003.72:

12531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2004.72:

12501 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2005.72:

12491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2006.72:

12492 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2007.72:

      v=w*q*(1.0-q)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2008.72:

      xmz=sum(v)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2009.72:

      if(xmz.le.vmin)goto 12252                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2010.72:

      r=w*(y-q)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2011.72:

      if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2012.72:

      ix=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2013.72:

12560 do 12561 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2014.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2015.72:

      if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 12561                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2016.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2017.72:

      goto 12562                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2018.72:

12561 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2019.72:

12562 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2020.72:

      if(ix .ne. 0)goto 12581                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2021.72:

12590 do 12591 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2022.72:

      if(ixx(k).eq.1)goto 12591                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2023.72:

      if(ju(k).eq.0)goto 12591                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2024.72:

      ga(k)=abs(dot_product(r,x(:,k)))                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2025.72:

      if(ga(k) .le. al1*vp(k))goto 12611                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2026.72:

      ixx(k)=1                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2027.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2028.72:

12611 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2029.72:

12591 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2030.72:

12592 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2031.72:

      if(ix.eq.1) go to 10680                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2032.72:

      goto 12252                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2033.72:

12581 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2034.72:

12551 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2035.72:

      goto 12251                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2036.72:

12252 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2037.72:

      if(nin .le. nx)goto 12631                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2038.72:

      jerr=-10000-ilm                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2039.72:

      goto 12172                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2040.72:

12631 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2041.72:

      if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2042.72:

      kin(ilm)=nin                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2043.72:

      a0(ilm)=b(0)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2044.72:

      alm(ilm)=al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2045.72:

      lmu=ilm                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2046.72:

      devi=dev2(no,w,y,q,pmin)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2047.72:

      dev(ilm)=(dev1-devi)/dev0                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2048.72:

      if(xmz.le.vmin)goto 12172                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2049.72:

      if(ilm.lt.mnl)goto 12171                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2050.72:

      if(flmin.ge.1.0)goto 12171                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2051.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2052.72:

12640 do 12641 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2053.72:

      if(a(j,ilm).ne.0.0) me=me+1                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2054.72:

12641 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2055.72:

12642 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2056.72:

      if(me.gt.ne)goto 12172                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2057.72:

      if(dev(ilm).gt.devmax)goto 12172                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2058.72:

      if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2059.72:

12171 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2060.72:

12172 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2061.72:

      g=log(q/(1.0-q))                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2062.72:

      deallocate(b,bs,v,r,xv,q,mm,ga,ixx)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2063.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2064.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2065.72:

      function dev2(n,w,y,p,pmin)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2066.72:

      real w(n),y(n),p(n)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2067.72:

      pmax=1.0-pmin                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2068.72:

      s=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2069.72:

12650 do 12651 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2070.72:

      pi=min(max(pmin,p(i)),pmax)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2071.72:

      s=s-w(i)*(y(i)*log(pi)+(1.0-y(i))*log(1.0-pi))                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2072.72:

12651 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2073.72:

12652 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2074.72:

      dev2=s                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2075.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2076.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2077.72:

      function azero(n,y,g,q,jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2078.72:

      parameter(eps=1.0e-7)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2079.72:

      real y(n),g(n),q(n)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2081.72:

      allocate(e(1:n),stat=jerr)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2082.72:

      allocate(p(1:n),stat=ierr)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2083.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2084.72:

      allocate(w(1:n),stat=ierr)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2085.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2086.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2087.72:

      az=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2088.72:

      e=exp(-g)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2089.72:

      qy=dot_product(q,y)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2090.72:

      p=1.0/(1.0+e)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2091.72:

12660 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2092.72:

12661 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2093.72:

      w=q*p*(1.0-p)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2094.72:

      d=(qy-dot_product(q,p))/sum(w)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2095.72:

      az=az+d                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2096.72:

      if(abs(d).lt.eps)goto 12662                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2097.72:

      ea0=exp(-az)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2098.72:

      p=1.0/(1.0+ea0*e)                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2099.72:

      goto 12661                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2100.72:

12662 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2101.72:

      azero=az                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2102.72:

      deallocate(e,p,w)                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2103.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2104.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2105.72:

      subroutine lognetn(parm,no,ni,nc,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ul
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2107.72:

      parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2109.72:

      real x(no,ni),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2110.72:

      real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2111.72:

      integer ju(ni),m(nx),kin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2121.72:

      allocate(r(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2122.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2123.72:

      allocate(v(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2124.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2125.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2126.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2127.72:

      allocate(is(1:max(nc,ni)),stat=ierr)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2128.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2129.72:

      allocate(sxp(1:no),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2130.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2131.72:

      allocate(sxpl(1:no),stat=ierr)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2132.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2133.72:

      allocate(di(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2134.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2135.72:

      allocate(ga(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2136.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2137.72:

      allocate(ixx(1:ni),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2138.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2139.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2140.72:

      pmax=1.0-pmin                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2141.72:

      emin=pmin/pmax                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2142.72:

      emax=1.0/emin                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2143.72:

      pfm=(1.0+pmin)*pmin                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2144.72:

      pfx=(1.0-pmin)*pmax                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2145.72:

      vmin=pfm*pmax                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2146.72:

      bta=parm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2147.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2148.72:

      dev1=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2149.72:

      dev0=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2150.72:

12670 do 12671 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2151.72:

      q0=dot_product(w,y(:,ic))                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2152.72:

      if(q0 .gt. pmin)goto 12691                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2153.72:

      jerr =8000+ic                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2154.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2155.72:

12691 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2156.72:

      if(q0 .lt. 1.0-pmin)goto 12711                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2157.72:

      jerr =9000+ic                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2158.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2159.72:

12711 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2160.72:

      b(0,ic)=log(q0)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2161.72:

      dev1=dev1-q0*b(0,ic)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2162.72:

      b(1:ni,ic)=0.0                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2163.72:

12671 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2164.72:

12672 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2165.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2166.72:

      al=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2167.72:

      if(nonzero(no*nc,g) .ne. 0)goto 12731                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2168.72:

      b(0,:)=b(0,:)-sum(b(0,:))/nc                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2169.72:

      sxp=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2170.72:

12740 do 12741 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2171.72:

      q(:,ic)=exp(b(0,ic))                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2172.72:

      sxp=sxp+q(:,ic)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2173.72:

12741 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2174.72:

12742 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2175.72:

      goto 12751                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2176.72:

12731 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2177.72:

12760 do 12761 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2178.72:

      g(i,:)=g(i,:)-sum(g(i,:))/nc                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2179.72:

12761 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2180.72:

12762 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2181.72:

      sxp=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2182.72:

      call kazero(nc,no,y,g,w,b(0,:),jerr)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2183.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2184.72:

      dev1=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2185.72:

12770 do 12771 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2186.72:

      q(:,ic)=b(0,ic)+g(:,ic)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2187.72:

      dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2188.72:

      q(:,ic)=exp(q(:,ic))                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2189.72:

      sxp=sxp+q(:,ic)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2190.72:

12771 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2191.72:

12772 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2192.72:

      sxpl=w*log(sxp)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2193.72:

12780 do 12781 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2194.72:

      dev1=dev1+dot_product(y(:,ic),sxpl)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2195.72:

12781 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2196.72:

12782 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2197.72:

12751 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2198.72:

12721 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2199.72:

12790 do 12791 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2200.72:

12800 do 12801 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2201.72:

      if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2202.72:

12801 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2203.72:

12802 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2204.72:

12791 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2205.72:

12792 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2206.72:

      dev0=dev0+dev1                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2207.72:

      if(kopt .le. 0)goto 12821                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2208.72:

      if(isd .le. 0)goto 12841                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2209.72:

      xv=0.25                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2210.72:

      goto 12851                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2211.72:

12841 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2212.72:

12860 do 12861 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2213.72:

      if(ju(j).ne.0) xv(j,:)=0.25*dot_product(w,x(:,j)**2)              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2214.72:

12861 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2215.72:

12862 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2216.72:

12851 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2217.72:

12831 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2218.72:

12821 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2219.72:

      if(flmin .ge. 1.0)goto 12881                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2220.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2221.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2222.72:

12881 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2223.72:

      m=0                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2224.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2225.72:

      nin=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2226.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2227.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2228.72:

      bs=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2229.72:

      shr=shri*dev0                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2230.72:

      ga=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2231.72:

12890 do 12891 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2232.72:

      r=w*(y(:,ic)-q(:,ic)/sxp)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2233.72:

12900 do 12901 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2234.72:

      if(ju(j).ne.0) ga(j)=max(ga(j),abs(dot_product(r,x(:,j))))        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2235.72:

12901 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2236.72:

12902 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2237.72:

12891 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2238.72:

12892 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2239.72:

12910 do 12911 ilm=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2240.72:

      al0=al                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2241.72:

      if(flmin .lt. 1.0)goto 12931                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2242.72:

      al=ulam(ilm)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2243.72:

      goto 12921                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2244.72:

12931 if(ilm .le. 2)goto 12941                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2245.72:

      al=al*alf                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2246.72:

      goto 12921                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2247.72:

12941 if(ilm .ne. 1)goto 12951                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2248.72:

      al=big                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2249.72:

      goto 12961                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2250.72:

12951 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2251.72:

      al0=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2252.72:

12970 do 12971 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2253.72:

      if(ju(j).eq.0)goto 12971                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2254.72:

      if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2255.72:

12971 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2256.72:

12972 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2257.72:

      al0=al0/max(bta,1.0e-3)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2258.72:

      al=alf*al0                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2259.72:

12961 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2260.72:

12921 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2261.72:

      al2=al*omb                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2262.72:

      al1=al*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2263.72:

      tlam=bta*(2.0*al-al0)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2264.72:

12980 do 12981 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2265.72:

      if(ixx(k).eq.1)goto 12981                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2266.72:

      if(ju(k).eq.0)goto 12981                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2267.72:

      if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2268.72:

12981 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2269.72:

12982 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2270.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2271.72:

12990 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2272.72:

12991 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2273.72:

      ix=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2274.72:

      jx=ix                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2275.72:

      ig=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2276.72:

13000 do 13001 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2277.72:

      bs(0,ic)=b(0,ic)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2278.72:

      if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2279.72:

      xmz=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2280.72:

13010 do 13011 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2281.72:

      pic=q(i,ic)/sxp(i)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2282.72:

      if(pic .ge. pfm)goto 13031                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2283.72:

      pic=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2284.72:

      v(i)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2285.72:

      goto 13021                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2286.72:

13031 if(pic .le. pfx)goto 13041                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2287.72:

      pic=1.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2288.72:

      v(i)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2289.72:

      goto 13051                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2290.72:

13041 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2291.72:

      v(i)=w(i)*pic*(1.0-pic)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2292.72:

      xmz=xmz+v(i)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2293.72:

13051 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2294.72:

13021 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2295.72:

      r(i)=w(i)*(y(i,ic)-pic)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2296.72:

13011 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2297.72:

13012 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2298.72:

      if(xmz.le.vmin)goto 13001                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2299.72:

      ig=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2300.72:

      if(kopt .ne. 0)goto 13071                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2301.72:

13080 do 13081 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2302.72:

      if(ixx(j).gt.0) xv(j,ic)=dot_product(v,x(:,j)**2)                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2303.72:

13081 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2304.72:

13082 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2305.72:

13071 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2306.72:

13090 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2307.72:

13091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2308.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2309.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2310.72:

13100 do 13101 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2311.72:

      if(ixx(k).eq.0)goto 13101                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2312.72:

      bk=b(k,ic)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2313.72:

      gk=dot_product(r,x(:,k))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2314.72:

      u=gk+xv(k,ic)*b(k,ic)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2315.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2316.72:

      if(au .gt. 0.0)goto 13121                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2317.72:

      b(k,ic)=0.0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2318.72:

      goto 13131                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2319.72:

13121 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2320.72:

      b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2321.72:

13131 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2322.72:

13111 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2323.72:

      d=b(k,ic)-bk                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2324.72:

      if(abs(d).le.0.0)goto 13101                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2325.72:

      dlx=max(dlx,xv(k,ic)*d**2)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2326.72:

      r=r-d*v*x(:,k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2327.72:

      if(mm(k) .ne. 0)goto 13151                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2328.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2329.72:

      if(nin .le. nx)goto 13171                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2330.72:

      jx=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2331.72:

      goto 13102                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2332.72:

13171 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2333.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2334.72:

      m(nin)=k                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2335.72:

13151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2336.72:

13101 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2337.72:

13102 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2338.72:

      if(jx.gt.0)goto 13092                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2339.72:

      d=sum(r)/xmz                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2340.72:

      if(d .eq. 0.0)goto 13191                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2341.72:

      b(0,ic)=b(0,ic)+d                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2342.72:

      dlx=max(dlx,xmz*d**2)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2343.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2344.72:

13191 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2345.72:

      if(dlx.lt.shr)goto 13092                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2346.72:

      if(nlp .le. maxit)goto 13211                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2347.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2348.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2349.72:

13211 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2350.72:

13220 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2351.72:

13221 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2352.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2353.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2354.72:

13230 do 13231 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2355.72:

      k=m(l)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2356.72:

      bk=b(k,ic)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2357.72:

      gk=dot_product(r,x(:,k))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2358.72:

      u=gk+xv(k,ic)*b(k,ic)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2359.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2360.72:

      if(au .gt. 0.0)goto 13251                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2361.72:

      b(k,ic)=0.0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2362.72:

      goto 13261                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2363.72:

13251 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2364.72:

      b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2365.72:

13261 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2366.72:

13241 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2367.72:

      d=b(k,ic)-bk                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2368.72:

      if(abs(d).le.0.0)goto 13231                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2369.72:

      dlx=max(dlx,xv(k,ic)*d**2)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2370.72:

      r=r-d*v*x(:,k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2371.72:

13231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2372.72:

13232 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2373.72:

      d=sum(r)/xmz                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2374.72:

      if(d .eq. 0.0)goto 13281                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2375.72:

      b(0,ic)=b(0,ic)+d                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2376.72:

      dlx=max(dlx,xmz*d**2)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2377.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2378.72:

13281 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2379.72:

      if(dlx.lt.shr)goto 13222                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2380.72:

      if(nlp .le. maxit)goto 13301                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2381.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2382.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2383.72:

13301 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2384.72:

      goto 13221                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2385.72:

13222 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2386.72:

      goto 13091                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2387.72:

13092 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2388.72:

      if(jx.gt.0)goto 13002                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2389.72:

      if(xmz*(b(0,ic)-bs(0,ic))**2.gt.shr) ix=1                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2390.72:

      if(ix .ne. 0)goto 13321                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2391.72:

13330 do 13331 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2392.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2393.72:

      if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 13351             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2394.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2395.72:

      goto 13332                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2396.72:

13351 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2397.72:

13331 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2398.72:

13332 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2399.72:

13321 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2400.72:

13360 do 13361 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2401.72:

      fi=b(0,ic)+g(i,ic)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2402.72:

      if(nin.gt.0) fi=fi+dot_product(b(m(1:nin),ic),x(i,m(1:nin)))      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2403.72:

      fi=min(max(exmn,fi),exmx)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2404.72:

      sxp(i)=sxp(i)-q(i,ic)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2405.72:

      q(i,ic)=min(max(emin*sxp(i),exp(fi)),emax*sxp(i))                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2406.72:

      sxp(i)=sxp(i)+q(i,ic)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2407.72:

13361 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2408.72:

13362 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2409.72:

13001 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2410.72:

13002 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2411.72:

      s=-sum(b(0,:))/nc                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2412.72:

      b(0,:)=b(0,:)+s                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2413.72:

      di=s                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2414.72:

13370 do 13371 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2415.72:

      l=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2416.72:

      if(vp(l) .gt. 0.0)goto 13391                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2417.72:

      s=sum(b(l,:))/nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2418.72:

      goto 13401                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2419.72:

13391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2420.72:

      s=elc(parm,nc,b(l,:),is)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2421.72:

13401 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2422.72:

13381 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2423.72:

      b(l,:)=b(l,:)-s                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2424.72:

      di=di-s*x(:,l)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2425.72:

13371 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2426.72:

13372 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2427.72:

      di=exp(di)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2428.72:

      sxp=sxp*di                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2429.72:

13410 do 13411 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2430.72:

      q(:,ic)=q(:,ic)*di                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2431.72:

13411 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2432.72:

13412 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2433.72:

      if(jx.gt.0)goto 12992                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2434.72:

      if(ig.eq.0)goto 12992                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2435.72:

      if(ix .ne. 0)goto 13431                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2436.72:

13440 do 13441 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2437.72:

      if(ixx(k).eq.1)goto 13441                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2438.72:

      if(ju(k).eq.0)goto 13441                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2439.72:

      ga(k)=0.0                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2440.72:

13441 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2441.72:

13442 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2442.72:

13450 do 13451 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2443.72:

      r=w*(y(:,ic)-q(:,ic)/sxp)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2444.72:

13460 do 13461 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2445.72:

      if(ixx(k).eq.1)goto 13461                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2446.72:

      if(ju(k).eq.0)goto 13461                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2447.72:

      ga(k)=max(ga(k),abs(dot_product(r,x(:,k))))                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2448.72:

13461 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2449.72:

13462 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2450.72:

13451 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2451.72:

13452 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2452.72:

13470 do 13471 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2453.72:

      if(ixx(k).eq.1)goto 13471                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2454.72:

      if(ju(k).eq.0)goto 13471                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2455.72:

      if(ga(k) .le. al1*vp(k))goto 13491                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2456.72:

      ixx(k)=1                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2457.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2458.72:

13491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2459.72:

13471 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2460.72:

13472 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2461.72:

      if(ix.eq.1) go to 10680                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2462.72:

      goto 12992                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2463.72:

13431 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2464.72:

      goto 12991                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2465.72:

12992 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2466.72:

      if(jx .le. 0)goto 13511                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2467.72:

      jerr=-10000-ilm                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2468.72:

      goto 12912                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2469.72:

13511 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2470.72:

      devi=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2471.72:

13520 do 13521 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2472.72:

      if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2473.72:

      a0(ic,ilm)=b(0,ic)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2474.72:

13530 do 13531 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2475.72:

      if(y(i,ic).le.0.0)goto 13531                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2476.72:

      devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2477.72:

13531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2478.72:

13532 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2479.72:

13521 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2480.72:

13522 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2481.72:

      kin(ilm)=nin                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2482.72:

      alm(ilm)=al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2483.72:

      lmu=ilm                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2484.72:

      dev(ilm)=(dev1-devi)/dev0                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2485.72:

      if(ig.eq.0)goto 12912                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2486.72:

      if(ilm.lt.mnl)goto 12911                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2487.72:

      if(flmin.ge.1.0)goto 12911                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2488.72:

      if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 12912          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2489.72:

      if(dev(ilm).gt.devmax)goto 12912                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2490.72:

      if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2491.72:

12911 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2492.72:

12912 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2493.72:

      g=log(q)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2494.72:

13540 do 13541 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2495.72:

      g(i,:)=g(i,:)-sum(g(i,:))/nc                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2496.72:

13541 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2497.72:

13542 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2498.72:

      deallocate(sxp,b,bs,v,r,xv,q,mm,is,ga,ixx)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2499.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2500.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2501.72:

      subroutine kazero(kk,n,y,g,q,az,jerr)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2502.72:

      parameter(eps=1.0e-7)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2503.72:

      real y(n,kk),g(n,kk),q(n),az(kk)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2507.72:

      allocate(s(1:n),stat=ierr)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2508.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2509.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2510.72:

      az=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2511.72:

      e=exp(g)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2512.72:

13550 do 13551 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2513.72:

      s(i)=sum(e(i,:))                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2514.72:

13551 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2515.72:

13552 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2516.72:

13560 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2517.72:

13561 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2518.72:

      dm=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2519.72:

13570 do 13571 k=1,kk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2520.72:

      t=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2521.72:

      u=t                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2522.72:

13580 do 13581 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2523.72:

      pik=e(i,k)/s(i)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2524.72:

      t=t+q(i)*(y(i,k)-pik)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2525.72:

      u=u+q(i)*pik*(1.0-pik)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2526.72:

13581 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2527.72:

13582 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2528.72:

      d=t/u                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2529.72:

      az(k)=az(k)+d                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2530.72:

      ed=exp(d)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2531.72:

      dm=max(dm,abs(d))                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2532.72:

13590 do 13591 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2533.72:

      z=e(i,k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2534.72:

      e(i,k)=z*ed                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2535.72:

      s(i)=s(i)-z+e(i,k)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2536.72:

13591 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2537.72:

13592 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2538.72:

13571 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2539.72:

13572 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2540.72:

      if(dm.lt.eps)goto 13562                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2541.72:

      goto 13561                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2542.72:

13562 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2543.72:

      az=az-sum(az)/kk                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2544.72:

      deallocate(e,s)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2545.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2546.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2547.72:

      function elc(parm,n,a,m)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2548.72:

      real a(n)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2549.72:

      integer m(n)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2550.72:

      fn=n                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2551.72:

      am=sum(a)/fn                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2552.72:

      if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2553.72:

      elc=am                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2554.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2555.72:

13611 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2556.72:

13620 do 13621 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2557.72:

      m(i)=i                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2558.72:

13621 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2559.72:

13622 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2560.72:

      call psort7(a,m,1,n)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2561.72:

      if(a(m(1)) .ne. a(m(n)))goto 13641                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2562.72:

      elc=a(1)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2563.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2564.72:

13641 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2565.72:

      if(mod(n,2) .ne. 1)goto 13661                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2566.72:

      ad=a(m(n/2+1))                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2567.72:

      goto 13671                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2568.72:

13661 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2569.72:

      ad=0.5*(a(m(n/2+1))+a(m(n/2)))                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2570.72:

13671 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2571.72:

13651 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2572.72:

      if(parm .ne. 1.0)goto 13691                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2573.72:

      elc=ad                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2574.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2575.72:

13691 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2576.72:

      b1=min(am,ad)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2577.72:

      b2=max(am,ad)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2578.72:

      k2=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2579.72:

13700 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2580.72:

13701 if(a(m(k2)).gt.b1)goto 13702                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2581.72:

      k2=k2+1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2582.72:

      goto 13701                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2583.72:

13702 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2584.72:

      k1=k2-1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2585.72:

13710 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2586.72:

13711 if(a(m(k2)).ge.b2)goto 13712                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2587.72:

      k2=k2+1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2588.72:

      goto 13711                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2589.72:

13712 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2590.72:

      r=parm/((1.0-parm)*fn)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2591.72:

      is=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2592.72:

      sm=n-2*(k1-1)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2593.72:

13720 do 13721 k=k1,k2-1                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2594.72:

      sm=sm-2.0                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2595.72:

      s=r*sm+am                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2596.72:

      if(s .le. a(m(k)) .or. s .gt. a(m(k+1)))goto 13741                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2597.72:

      is=k                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2598.72:

      goto 13722                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2599.72:

13741 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2600.72:

13721 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2601.72:

13722 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2602.72:

      if(is .eq. 0)goto 13761                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2603.72:

      elc=s                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2604.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2605.72:

13761 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2606.72:

      r2=2.0*r                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2607.72:

      s1=a(m(k1))                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2608.72:

      am2=2.0*am                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2609.72:

      cri=r2*sum(abs(a-s1))+s1*(s1-am2)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2610.72:

      elc=s1                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2611.72:

13770 do 13771 k=k1+1,k2                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2612.72:

      s=a(m(k))                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2613.72:

      if(s.eq.s1)goto 13771                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2614.72:

      c=r2*sum(abs(a-s))+s*(s-am2)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2615.72:

      if(c .ge. cri)goto 13791                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2616.72:

      cri=c                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2617.72:

      elc=s                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2618.72:

13791 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2619.72:

      s1=s                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2620.72:

13771 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2621.72:

13772 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2622.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2623.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2624.72:

      function nintot(ni,nx,nc,a,m,nin,is)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2625.72:

      real a(nx,nc)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2626.72:

      integer m(nx),is(ni)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2627.72:

      is=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2628.72:

      nintot=0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2629.72:

13800 do 13801 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2630.72:

13810 do 13811 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2631.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2632.72:

      if(is(k).ne.0)goto 13811                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2633.72:

      if(a(j,ic).eq.0.0)goto 13811                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2634.72:

      is(k)=k                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2635.72:

      nintot=nintot+1                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2636.72:

13811 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2637.72:

13812 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2638.72:

13801 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2639.72:

13802 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2640.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2641.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2642.72:

      subroutine luncomp(ni,nx,nc,ca,ia,nin,a)                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2643.72:

      real ca(nx,nc),a(ni,nc)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2644.72:

      integer ia(nx)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2645.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2646.72:

13820 do 13821 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2647.72:

      if(nin.gt.0) a(ia(1:nin),ic)=ca(1:nin,ic)                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2648.72:

13821 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2649.72:

13822 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2650.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2651.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2652.72:

      subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans)                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2653.72:

      real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt)                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2654.72:

      integer ia(nx)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2655.72:

13830 do 13831 i=1,nt                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2656.72:

13840 do 13841 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2657.72:

      ans(ic,i)=a0(ic)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2658.72:

      if(nin.gt.0) ans(ic,i)=ans(ic,i)+dot_product(ca(1:nin,ic),x(i,ia(1
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2660.72:

13841 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2661.72:

13842 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2662.72:

13831 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2663.72:

13832 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2664.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2665.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2666.72:

      subroutine splognet (parm,no,ni,nc,x,ix,jx,y,g,jd,vp,ne,nx,nlam,fl
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2669.72:

      real x(*),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2670.72:

      real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2671.72:

      integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2674.72:

      if(maxval(vp) .gt. 0.0)goto 13861                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2675.72:

      jerr=10000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2676.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2677.72:

13861 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2678.72:

      allocate(ww(1:no),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2679.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2680.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2681.72:

      allocate(vq(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2682.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2683.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2684.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2685.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2686.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2687.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2688.72:

      call spchkvars(no,ni,x,ix,ju)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2689.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2690.72:

      if(maxval(ju) .gt. 0)goto 13881                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2691.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2692.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2693.72:

13881 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2694.72:

      vq=max(0.0,vp)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2695.72:

      vq=vq*ni/sum(vq)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2696.72:

13890 do 13891 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2697.72:

      ww(i)=sum(y(i,:))                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2698.72:

      y(i,:)=y(i,:)/ww(i)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2699.72:

13891 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2700.72:

13892 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2701.72:

      sw=sum(ww)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2702.72:

      ww=ww/sw                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2703.72:

      call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2704.72:

      if(nc .ne. 1)goto 13911                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2705.72:

      call sprlognet2n(parm,no,ni,x,ix,jx,y(:,1),g(:,1),ww,ju,vq,ne,nx,n
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2708.72:

      goto 13921                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2709.72:

13911 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2710.72:

      call sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmi
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2713.72:

13921 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2714.72:

13901 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2715.72:

      if(jerr.gt.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2716.72:

      dev0=2.0*sw*dev0                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2717.72:

13930 do 13931 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2718.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2719.72:

13940 do 13941 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2720.72:

      if(isd .le. 0)goto 13961                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2721.72:

13970 do 13971 l=1,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2722.72:

      ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2723.72:

13971 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2724.72:

13972 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2725.72:

13961 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2726.72:

      a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2727.72:

13941 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2728.72:

13942 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2729.72:

13931 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2730.72:

13932 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2731.72:

      deallocate(ww,ju,vq,xm,xs)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2732.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2733.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2734.72:

      subroutine splstandard2(no,ni,x,ix,jx,w,ju,isd,xm,xs)             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2735.72:

      real x(*),w(no),xm(ni),xs(ni)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2736.72:

      integer ix(*),jx(*),ju(ni)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2737.72:

13980 do 13981 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2738.72:

      if(ju(j).eq.0)goto 13981                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2739.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2740.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2741.72:

      xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2742.72:

      if(isd.ne.0) xs(j)=sqrt(dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2744.72:

13981 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2745.72:

13982 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2746.72:

      if(isd.eq.0) xs=1.0                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2747.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2748.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2749.72:

      subroutine sprlognet2n (parm,no,ni,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2752.72:

      parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2754.72:

      real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2755.72:

      real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2756.72:

      real xb(ni),xs(ni)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2757.72:

      integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2760.72:

      allocate(b(0:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2761.72:

      allocate(xm(0:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2762.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2763.72:

      allocate(xv(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2764.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2765.72:

      allocate(bs(0:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2766.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2767.72:

      allocate(ga(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2768.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2769.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2770.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2771.72:

      allocate(ixx(1:ni),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2772.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2773.72:

      allocate(q(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2774.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2775.72:

      allocate(r(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2776.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2777.72:

      allocate(v(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2778.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2779.72:

      allocate(sc(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2780.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2781.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2782.72:

      fmax=log(1.0/pmin-1.0)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2783.72:

      fmin=-fmax                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2784.72:

      vmin=(1.0+pmin)*pmin*(1.0-pmin)                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2785.72:

      bta=parm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2786.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2787.72:

      q0=dot_product(w,y)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2788.72:

      if(q0 .gt. pmin)goto 14001                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2789.72:

      jerr=8001                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2790.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2791.72:

14001 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2792.72:

      if(q0 .lt. 1.0-pmin)goto 14021                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2793.72:

      jerr=9001                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2794.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2795.72:

14021 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2796.72:

      bz=log(q0/(1.0-q0))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2797.72:

      if(nonzero(no,g) .ne. 0)goto 14041                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2798.72:

      vi=q0*(1.0-q0)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2799.72:

      b(0)=bz                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2800.72:

      v=vi*w                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2801.72:

      r=w*(y-q0)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2802.72:

      q=q0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2803.72:

      xm(0)=vi                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2804.72:

      dev1=-(bz*q0+log(1.0-q0))                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2805.72:

      goto 14051                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2806.72:

14041 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2807.72:

      b(0)=azero(no,y,g,w,jerr)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2808.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2809.72:

      q=1.0/(1.0+exp(-b(0)-g))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2810.72:

      v=w*q*(1.0-q)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2811.72:

      r=w*(y-q)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2812.72:

      xm(0)=sum(v)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2813.72:

      dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2814.72:

14051 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2815.72:

14031 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2816.72:

      if(kopt .le. 0)goto 14071                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2817.72:

      if(isd .le. 0)goto 14091                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2818.72:

      xv=0.25                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2819.72:

      goto 14101                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2820.72:

14091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2821.72:

14110 do 14111 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2822.72:

      if(ju(j).eq.0)goto 14111                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2823.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2824.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2825.72:

      xv(j)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2826.72:

14111 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2827.72:

14112 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2828.72:

14101 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2829.72:

14081 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2830.72:

14071 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2831.72:

      b(1:ni)=0.0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2832.72:

      dev0=dev1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2833.72:

14120 do 14121 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2834.72:

      if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2835.72:

      if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2836.72:

14121 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2837.72:

14122 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2838.72:

      if(flmin .ge. 1.0)goto 14141                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2839.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2840.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2841.72:

14141 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2842.72:

      m=0                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2843.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2844.72:

      nin=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2845.72:

      o=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2846.72:

      svr=o                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2847.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2848.72:

      bs=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2849.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2850.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2851.72:

      shr=shri*dev0                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2852.72:

      al=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2853.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2854.72:

14150 do 14151 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2855.72:

      if(ju(j).eq.0)goto 14151                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2856.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2857.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2858.72:

      jn=ix(j+1)-ix(j)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2859.72:

      sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2860.72:

      gj=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2861.72:

      ga(j)=abs((gj-svr*xb(j))/xs(j))                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2862.72:

14151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2863.72:

14152 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2864.72:

14160 do 14161 ilm=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2865.72:

      al0=al                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2866.72:

      if(flmin .lt. 1.0)goto 14181                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2867.72:

      al=ulam(ilm)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2868.72:

      goto 14171                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2869.72:

14181 if(ilm .le. 2)goto 14191                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2870.72:

      al=al*alf                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2871.72:

      goto 14171                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2872.72:

14191 if(ilm .ne. 1)goto 14201                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2873.72:

      al=big                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2874.72:

      goto 14211                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2875.72:

14201 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2876.72:

      al0=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2877.72:

14220 do 14221 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2878.72:

      if(ju(j).eq.0)goto 14221                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2879.72:

      if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2880.72:

14221 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2881.72:

14222 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2882.72:

      al0=al0/max(bta,1.0e-3)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2883.72:

      al=alf*al0                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2884.72:

14211 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2885.72:

14171 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2886.72:

      al2=al*omb                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2887.72:

      al1=al*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2888.72:

      tlam=bta*(2.0*al-al0)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2889.72:

14230 do 14231 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2890.72:

      if(ixx(k).eq.1)goto 14231                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2891.72:

      if(ju(k).eq.0)goto 14231                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2892.72:

      if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2893.72:

14231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2894.72:

14232 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2895.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2896.72:

14240 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2897.72:

14241 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2898.72:

      bs(0)=b(0)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2899.72:

      if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2900.72:

14250 do 14251 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2901.72:

      if(ixx(j).eq.0)goto 14251                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2902.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2903.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2904.72:

      jn=ix(j+1)-ix(j)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2905.72:

      sc(1:jn)=v(jx(jb:je))                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2906.72:

      xm(j)=dot_product(sc(1:jn),x(jb:je))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2907.72:

      if(kopt .ne. 0)goto 14271                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2908.72:

      xv(j)=dot_product(sc(1:jn),x(jb:je)**2)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2909.72:

      xv(j)=(xv(j)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2910.72:

14271 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2911.72:

14251 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2912.72:

14252 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2913.72:

14280 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2914.72:

14281 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2915.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2916.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2917.72:

14290 do 14291 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2918.72:

      if(ixx(k).eq.0)goto 14291                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2919.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2920.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2921.72:

      jn=ix(k+1)-ix(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2922.72:

      bk=b(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2923.72:

      sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2924.72:

      gk=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2925.72:

      gk=(gk-svr*xb(k))/xs(k)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2926.72:

      u=gk+xv(k)*b(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2927.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2928.72:

      if(au .gt. 0.0)goto 14311                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2929.72:

      b(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2930.72:

      goto 14321                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2931.72:

14311 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2932.72:

      b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2933.72:

14321 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2934.72:

14301 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2935.72:

      d=b(k)-bk                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2936.72:

      if(abs(d).le.0.0)goto 14291                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2937.72:

      dlx=max(dlx,xv(k)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2938.72:

      if(mm(k) .ne. 0)goto 14341                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2939.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2940.72:

      if(nin.gt.nx)goto 14292                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2941.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2942.72:

      m(nin)=k                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2943.72:

      sc(1:jn)=v(jx(jb:je))                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2944.72:

      xm(k)=dot_product(sc(1:jn),x(jb:je))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2945.72:

14341 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2946.72:

      r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2947.72:

      o=o+d*(xb(k)/xs(k))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2948.72:

      svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2949.72:

14291 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2950.72:

14292 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2951.72:

      if(nin.gt.nx)goto 14282                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2952.72:

      d=svr/xm(0)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2953.72:

      if(d .eq. 0.0)goto 14361                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2954.72:

      b(0)=b(0)+d                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2955.72:

      dlx=max(dlx,xm(0)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2956.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2957.72:

14361 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2958.72:

      svr=svr-d*xm(0)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2959.72:

      if(dlx.lt.shr)goto 14282                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2960.72:

      if(nlp .le. maxit)goto 14381                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2961.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2962.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2963.72:

14381 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2964.72:

14390 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2965.72:

14391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2966.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2967.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2968.72:

14400 do 14401 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2969.72:

      k=m(l)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2970.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2971.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2972.72:

      jn=ix(k+1)-ix(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2973.72:

      bk=b(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2974.72:

      sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2975.72:

      gk=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2976.72:

      gk=(gk-svr*xb(k))/xs(k)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2977.72:

      u=gk+xv(k)*b(k)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2978.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2979.72:

      if(au .gt. 0.0)goto 14421                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2980.72:

      b(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2981.72:

      goto 14431                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2982.72:

14421 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2983.72:

      b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2984.72:

14431 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2985.72:

14411 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2986.72:

      d=b(k)-bk                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2987.72:

      if(abs(d).le.0.0)goto 14401                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2988.72:

      dlx=max(dlx,xv(k)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2989.72:

      r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2990.72:

      o=o+d*(xb(k)/xs(k))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2991.72:

      svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2992.72:

14401 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2993.72:

14402 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2994.72:

      d=svr/xm(0)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2995.72:

      if(d .eq. 0.0)goto 14451                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2996.72:

      b(0)=b(0)+d                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2997.72:

      dlx=max(dlx,xm(0)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2998.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:2999.72:

14451 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3000.72:

      svr=svr-d*xm(0)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3001.72:

      if(dlx.lt.shr)goto 14392                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3002.72:

      if(nlp .le. maxit)goto 14471                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3003.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3004.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3005.72:

14471 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3006.72:

      goto 14391                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3007.72:

14392 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3008.72:

      goto 14281                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3009.72:

14282 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3010.72:

      if(nin.gt.nx)goto 14242                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3011.72:

      sc=b(0)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3012.72:

      b0=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3013.72:

14480 do 14481 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3014.72:

      l=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3015.72:

      jb=ix(l)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3016.72:

      je=ix(l+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3017.72:

      sc(jx(jb:je))=sc(jx(jb:je))+b(l)*x(jb:je)/xs(l)                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3018.72:

      b0=b0-b(l)*xb(l)/xs(l)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3019.72:

14481 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3020.72:

14482 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3021.72:

      sc=sc+b0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3022.72:

14490 do 14491 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3023.72:

      fi=sc(i)+g(i)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3024.72:

      if(fi .ge. fmin)goto 14511                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3025.72:

      q(i)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3026.72:

      goto 14501                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3027.72:

14511 if(fi .le. fmax)goto 14521                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3028.72:

      q(i)=1.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3029.72:

      goto 14531                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3030.72:

14521 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3031.72:

      q(i)=1.0/(1.0+exp(-fi))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3032.72:

14531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3033.72:

14501 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3034.72:

14491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3035.72:

14492 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3036.72:

      v=w*q*(1.0-q)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3037.72:

      xm(0)=sum(v)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3038.72:

      if(xm(0).lt.vmin)goto 14242                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3039.72:

      r=w*(y-q)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3040.72:

      svr=sum(r)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3041.72:

      o=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3042.72:

      if(xm(0)*(b(0)-bs(0))**2 .ge. shr)goto 14551                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3043.72:

      kx=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3044.72:

14560 do 14561 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3045.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3046.72:

      if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 14561                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3047.72:

      kx=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3048.72:

      goto 14562                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3049.72:

14561 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3050.72:

14562 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3051.72:

      if(kx .ne. 0)goto 14581                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3052.72:

14590 do 14591 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3053.72:

      if(ixx(j).eq.1)goto 14591                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3054.72:

      if(ju(j).eq.0)goto 14591                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3055.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3056.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3057.72:

      jn=ix(j+1)-ix(j)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3058.72:

      sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3059.72:

      gj=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3060.72:

      ga(j)=abs((gj-svr*xb(j))/xs(j))                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3061.72:

      if(ga(j) .le. al1*vp(j))goto 14611                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3062.72:

      ixx(j)=1                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3063.72:

      kx=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3064.72:

14611 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3065.72:

14591 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3066.72:

14592 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3067.72:

      if(kx.eq.1) go to 10680                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3068.72:

      goto 14242                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3069.72:

14581 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3070.72:

14551 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3071.72:

      goto 14241                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3072.72:

14242 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3073.72:

      if(nin .le. nx)goto 14631                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3074.72:

      jerr=-10000-ilm                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3075.72:

      goto 14162                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3076.72:

14631 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3077.72:

      if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3078.72:

      kin(ilm)=nin                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3079.72:

      a0(ilm)=b(0)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3080.72:

      alm(ilm)=al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3081.72:

      lmu=ilm                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3082.72:

      devi=dev2(no,w,y,q,pmin)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3083.72:

      dev(ilm)=(dev1-devi)/dev0                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3084.72:

      if(ilm.lt.mnl)goto 14161                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3085.72:

      if(flmin.ge.1.0)goto 14161                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3086.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3087.72:

14640 do 14641 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3088.72:

      if(a(j,ilm).ne.0.0) me=me+1                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3089.72:

14641 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3090.72:

14642 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3091.72:

      if(me.gt.ne)goto 14162                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3092.72:

      if(dev(ilm).gt.devmax)goto 14162                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3093.72:

      if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3094.72:

      if(xm(0).lt.vmin)goto 14162                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3095.72:

14161 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3096.72:

14162 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3097.72:

      g=log(q/(1.0-q))                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3098.72:

      deallocate(xm,b,bs,v,r,sc,xv,q,mm,ga,ixx)                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3099.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3100.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3101.72:

      subroutine sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3104.72:

      parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3106.72:

      real x(*),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam),xb(ni),xs(ni) 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3107.72:

      real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3108.72:

      integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3118.72:

      allocate(xm(0:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3119.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3120.72:

      allocate(r(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3121.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3122.72:

      allocate(v(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3123.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3124.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3125.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3126.72:

      allocate(ga(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3127.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3128.72:

      allocate(iy(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3129.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3130.72:

      allocate(is(1:max(nc,ni)),stat=ierr)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3131.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3132.72:

      allocate(sxp(1:no),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3133.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3134.72:

      allocate(sxpl(1:no),stat=ierr)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3135.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3136.72:

      allocate(sc(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3137.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3138.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3139.72:

      pmax=1.0-pmin                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3140.72:

      emin=pmin/pmax                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3141.72:

      emax=1.0/emin                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3142.72:

      pfm=(1.0+pmin)*pmin                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3143.72:

      pfx=(1.0-pmin)*pmax                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3144.72:

      vmin=pfm*pmax                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3145.72:

      bta=parm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3146.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3147.72:

      dev1=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3148.72:

      dev0=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3149.72:

14650 do 14651 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3150.72:

      q0=dot_product(w,y(:,ic))                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3151.72:

      if(q0 .gt. pmin)goto 14671                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3152.72:

      jerr =8000+ic                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3153.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3154.72:

14671 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3155.72:

      if(q0 .lt. 1.0-pmin)goto 14691                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3156.72:

      jerr =9000+ic                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3157.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3158.72:

14691 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3159.72:

      b(1:ni,ic)=0.0                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3160.72:

      b(0,ic)=log(q0)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3161.72:

      dev1=dev1-q0*b(0,ic)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3162.72:

14651 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3163.72:

14652 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3164.72:

      iy=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3165.72:

      al=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3166.72:

      if(nonzero(no*nc,g) .ne. 0)goto 14711                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3167.72:

      b(0,:)=b(0,:)-sum(b(0,:))/nc                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3168.72:

      sxp=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3169.72:

14720 do 14721 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3170.72:

      q(:,ic)=exp(b(0,ic))                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3171.72:

      sxp=sxp+q(:,ic)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3172.72:

14721 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3173.72:

14722 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3174.72:

      goto 14731                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3175.72:

14711 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3176.72:

14740 do 14741 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3177.72:

      g(i,:)=g(i,:)-sum(g(i,:))/nc                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3178.72:

14741 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3179.72:

14742 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3180.72:

      sxp=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3181.72:

      call kazero(nc,no,y,g,w,b(0,:),jerr)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3182.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3183.72:

      dev1=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3184.72:

14750 do 14751 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3185.72:

      q(:,ic)=b(0,ic)+g(:,ic)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3186.72:

      dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3187.72:

      q(:,ic)=exp(q(:,ic))                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3188.72:

      sxp=sxp+q(:,ic)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3189.72:

14751 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3190.72:

14752 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3191.72:

      sxpl=w*log(sxp)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3192.72:

14760 do 14761 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3193.72:

      dev1=dev1+dot_product(y(:,ic),sxpl)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3194.72:

14761 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3195.72:

14762 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3196.72:

14731 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3197.72:

14701 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3198.72:

14770 do 14771 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3199.72:

14780 do 14781 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3200.72:

      if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3201.72:

14781 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3202.72:

14782 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3203.72:

14771 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3204.72:

14772 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3205.72:

      dev0=dev0+dev1                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3206.72:

      if(kopt .le. 0)goto 14801                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3207.72:

      if(isd .le. 0)goto 14821                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3208.72:

      xv=0.25                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3209.72:

      goto 14831                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3210.72:

14821 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3211.72:

14840 do 14841 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3212.72:

      if(ju(j).eq.0)goto 14841                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3213.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3214.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3215.72:

      xv(j,:)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3216.72:

14841 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3217.72:

14842 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3218.72:

14831 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3219.72:

14811 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3220.72:

14801 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3221.72:

      if(flmin .ge. 1.0)goto 14861                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3222.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3223.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3224.72:

14861 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3225.72:

      m=0                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3226.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3227.72:

      nin=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3228.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3229.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3230.72:

      bs=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3231.72:

      svr=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3232.72:

      o=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3233.72:

      shr=shri*dev0                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3234.72:

      ga=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3235.72:

14870 do 14871 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3236.72:

      v=q(:,ic)/sxp                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3237.72:

      r=w*(y(:,ic)-v)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3238.72:

      v=w*v*(1.0-v)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3239.72:

14880 do 14881 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3240.72:

      if(ju(j).eq.0)goto 14881                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3241.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3242.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3243.72:

      jn=ix(j+1)-ix(j)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3244.72:

      sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3245.72:

      gj=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3246.72:

      ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3247.72:

14881 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3248.72:

14882 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3249.72:

14871 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3250.72:

14872 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3251.72:

14890 do 14891 ilm=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3252.72:

      al0=al                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3253.72:

      if(flmin .lt. 1.0)goto 14911                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3254.72:

      al=ulam(ilm)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3255.72:

      goto 14901                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3256.72:

14911 if(ilm .le. 2)goto 14921                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3257.72:

      al=al*alf                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3258.72:

      goto 14901                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3259.72:

14921 if(ilm .ne. 1)goto 14931                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3260.72:

      al=big                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3261.72:

      goto 14941                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3262.72:

14931 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3263.72:

      al0=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3264.72:

14950 do 14951 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3265.72:

      if(ju(j).eq.0)goto 14951                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3266.72:

      if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3267.72:

14951 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3268.72:

14952 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3269.72:

      al0=al0/max(bta,1.0e-3)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3270.72:

      al=alf*al0                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3271.72:

14941 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3272.72:

14901 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3273.72:

      al2=al*omb                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3274.72:

      al1=al*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3275.72:

      tlam=bta*(2.0*al-al0)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3276.72:

14960 do 14961 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3277.72:

      if(iy(k).eq.1)goto 14961                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3278.72:

      if(ju(k).eq.0)goto 14961                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3279.72:

      if(ga(k).gt.tlam*vp(k)) iy(k)=1                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3280.72:

14961 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3281.72:

14962 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3282.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3283.72:

14970 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3284.72:

14971 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3285.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3286.72:

      jxx=ixx                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3287.72:

      ig=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3288.72:

14980 do 14981 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3289.72:

      bs(0,ic)=b(0,ic)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3290.72:

      if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3291.72:

      xm(0)=0.0                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3292.72:

      svr=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3293.72:

      o=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3294.72:

14990 do 14991 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3295.72:

      pic=q(i,ic)/sxp(i)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3296.72:

      if(pic .ge. pfm)goto 15011                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3297.72:

      pic=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3298.72:

      v(i)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3299.72:

      goto 15001                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3300.72:

15011 if(pic .le. pfx)goto 15021                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3301.72:

      pic=1.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3302.72:

      v(i)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3303.72:

      goto 15031                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3304.72:

15021 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3305.72:

      v(i)=w(i)*pic*(1.0-pic)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3306.72:

      xm(0)=xm(0)+v(i)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3307.72:

15031 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3308.72:

15001 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3309.72:

      r(i)=w(i)*(y(i,ic)-pic)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3310.72:

      svr=svr+r(i)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3311.72:

14991 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3312.72:

14992 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3313.72:

      if(xm(0).le.vmin)goto 14981                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3314.72:

      ig=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3315.72:

15040 do 15041 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3316.72:

      if(iy(j).eq.0)goto 15041                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3317.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3318.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3319.72:

      xm(j)=dot_product(v(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3320.72:

      if(kopt .ne. 0)goto 15061                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3321.72:

      xv(j,ic)=dot_product(v(jx(jb:je)),x(jb:je)**2)                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3322.72:

      xv(j,ic)=(xv(j,ic)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3323.72:

15061 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3324.72:

15041 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3325.72:

15042 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3326.72:

15070 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3327.72:

15071 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3328.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3329.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3330.72:

15080 do 15081 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3331.72:

      if(iy(k).eq.0)goto 15081                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3332.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3333.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3334.72:

      jn=ix(k+1)-ix(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3335.72:

      bk=b(k,ic)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3336.72:

      sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3337.72:

      gk=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3338.72:

      gk=(gk-svr*xb(k))/xs(k)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3339.72:

      u=gk+xv(k,ic)*b(k,ic)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3340.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3341.72:

      if(au .gt. 0.0)goto 15101                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3342.72:

      b(k,ic)=0.0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3343.72:

      goto 15111                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3344.72:

15101 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3345.72:

      b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3346.72:

15111 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3347.72:

15091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3348.72:

      d=b(k,ic)-bk                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3349.72:

      if(abs(d).le.0.0)goto 15081                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3350.72:

      dlx=max(dlx,xv(k,ic)*d**2)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3351.72:

      if(mm(k) .ne. 0)goto 15131                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3352.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3353.72:

      if(nin .le. nx)goto 15151                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3354.72:

      jxx=1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3355.72:

      goto 15082                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3356.72:

15151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3357.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3358.72:

      m(nin)=k                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3359.72:

      xm(k)=dot_product(v(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3360.72:

15131 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3361.72:

      r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3362.72:

      o=o+d*(xb(k)/xs(k))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3363.72:

      svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3364.72:

15081 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3365.72:

15082 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3366.72:

      if(jxx.gt.0)goto 15072                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3367.72:

      d=svr/xm(0)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3368.72:

      if(d .eq. 0.0)goto 15171                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3369.72:

      b(0,ic)=b(0,ic)+d                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3370.72:

      dlx=max(dlx,xm(0)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3371.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3372.72:

      svr=svr-d*xm(0)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3373.72:

15171 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3374.72:

      if(dlx.lt.shr)goto 15072                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3375.72:

      if(nlp .le. maxit)goto 15191                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3376.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3377.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3378.72:

15191 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3379.72:

15200 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3380.72:

15201 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3381.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3382.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3383.72:

15210 do 15211 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3384.72:

      k=m(l)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3385.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3386.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3387.72:

      jn=ix(k+1)-ix(k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3388.72:

      bk=b(k,ic)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3389.72:

      sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3390.72:

      gk=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3391.72:

      gk=(gk-svr*xb(k))/xs(k)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3392.72:

      u=gk+xv(k,ic)*b(k,ic)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3393.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3394.72:

      if(au .gt. 0.0)goto 15231                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3395.72:

      b(k,ic)=0.0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3396.72:

      goto 15241                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3397.72:

15231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3398.72:

      b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3399.72:

15241 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3400.72:

15221 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3401.72:

      d=b(k,ic)-bk                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3402.72:

      if(abs(d).le.0.0)goto 15211                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3403.72:

      dlx=max(dlx,xv(k,ic)*d**2)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3404.72:

      r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3405.72:

      o=o+d*(xb(k)/xs(k))                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3406.72:

      svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3407.72:

15211 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3408.72:

15212 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3409.72:

      d=svr/xm(0)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3410.72:

      if(d .eq. 0.0)goto 15261                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3411.72:

      b(0,ic)=b(0,ic)+d                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3412.72:

      dlx=max(dlx,xm(0)*d**2)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3413.72:

      r=r-d*v                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3414.72:

      svr=svr-d*xm(0)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3415.72:

15261 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3416.72:

      if(dlx.lt.shr)goto 15202                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3417.72:

      if(nlp .le. maxit)goto 15281                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3418.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3419.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3420.72:

15281 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3421.72:

      goto 15201                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3422.72:

15202 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3423.72:

      goto 15071                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3424.72:

15072 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3425.72:

      if(jxx.gt.0)goto 14982                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3426.72:

      if(xm(0)*(b(0,ic)-bs(0,ic))**2.gt.shr) ixx=1                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3427.72:

      if(ixx .ne. 0)goto 15301                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3428.72:

15310 do 15311 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3429.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3430.72:

      if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 15331             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3431.72:

      ixx=1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3432.72:

      goto 15312                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3433.72:

15331 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3434.72:

15311 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3435.72:

15312 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3436.72:

15301 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3437.72:

      sc=b(0,ic)+g(:,ic)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3438.72:

      b0=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3439.72:

15340 do 15341 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3440.72:

      l=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3441.72:

      jb=ix(l)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3442.72:

      je=ix(l+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3443.72:

      sc(jx(jb:je))=sc(jx(jb:je))+b(l,ic)*x(jb:je)/xs(l)                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3444.72:

      b0=b0-b(l,ic)*xb(l)/xs(l)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3445.72:

15341 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3446.72:

15342 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3447.72:

      sc=min(max(exmn,sc+b0),exmx)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3448.72:

      sxp=sxp-q(:,ic)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3449.72:

      q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3450.72:

      sxp=sxp+q(:,ic)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3451.72:

14981 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3452.72:

14982 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3453.72:

      s=-sum(b(0,:))/nc                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3454.72:

      b(0,:)=b(0,:)+s                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3455.72:

      sc=s                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3456.72:

      b0=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3457.72:

15350 do 15351 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3458.72:

      l=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3459.72:

      if(vp(l) .gt. 0.0)goto 15371                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3460.72:

      s=sum(b(l,:))/nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3461.72:

      goto 15381                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3462.72:

15371 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3463.72:

      s=elc(parm,nc,b(l,:),is)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3464.72:

15381 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3465.72:

15361 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3466.72:

      b(l,:)=b(l,:)-s                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3467.72:

      jb=ix(l)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3468.72:

      je=ix(l+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3469.72:

      sc(jx(jb:je))=sc(jx(jb:je))-s*x(jb:je)/xs(l)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3470.72:

      b0=b0+s*xb(l)/xs(l)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3471.72:

15351 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3472.72:

15352 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3473.72:

      sc=sc+b0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3474.72:

      sc=exp(sc)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3475.72:

      sxp=sxp*sc                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3476.72:

15390 do 15391 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3477.72:

      q(:,ic)=q(:,ic)*sc                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3478.72:

15391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3479.72:

15392 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3480.72:

      if(jxx.gt.0)goto 14972                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3481.72:

      if(ig.eq.0)goto 14972                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3482.72:

      if(ixx .ne. 0)goto 15411                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3483.72:

15420 do 15421 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3484.72:

      if(iy(j).eq.1)goto 15421                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3485.72:

      if(ju(j).eq.0)goto 15421                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3486.72:

      ga(j)=0.0                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3487.72:

15421 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3488.72:

15422 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3489.72:

15430 do 15431 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3490.72:

      v=q(:,ic)/sxp                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3491.72:

      r=w*(y(:,ic)-v)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3492.72:

      v=w*v*(1.0-v)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3493.72:

15440 do 15441 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3494.72:

      if(iy(j).eq.1)goto 15441                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3495.72:

      if(ju(j).eq.0)goto 15441                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3496.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3497.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3498.72:

      jn=ix(j+1)-ix(j)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3499.72:

      sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3500.72:

      gj=dot_product(sc(1:jn),x(jb:je))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3501.72:

      ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3502.72:

15441 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3503.72:

15442 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3504.72:

15431 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3505.72:

15432 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3506.72:

15450 do 15451 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3507.72:

      if(iy(k).eq.1)goto 15451                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3508.72:

      if(ju(k).eq.0)goto 15451                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3509.72:

      if(ga(k) .le. al1*vp(k))goto 15471                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3510.72:

      iy(k)=1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3511.72:

      ixx=1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3512.72:

15471 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3513.72:

15451 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3514.72:

15452 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3515.72:

      if(ixx.eq.1) go to 10680                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3516.72:

      goto 14972                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3517.72:

15411 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3518.72:

      goto 14971                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3519.72:

14972 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3520.72:

      if(jxx .le. 0)goto 15491                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3521.72:

      jerr=-10000-ilm                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3522.72:

      goto 14892                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3523.72:

15491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3524.72:

      devi=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3525.72:

15500 do 15501 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3526.72:

      if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3527.72:

      a0(ic,ilm)=b(0,ic)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3528.72:

15510 do 15511 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3529.72:

      if(y(i,ic).le.0.0)goto 15511                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3530.72:

      devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3531.72:

15511 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3532.72:

15512 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3533.72:

15501 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3534.72:

15502 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3535.72:

      kin(ilm)=nin                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3536.72:

      alm(ilm)=al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3537.72:

      lmu=ilm                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3538.72:

      dev(ilm)=(dev1-devi)/dev0                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3539.72:

      if(ig.eq.0)goto 14892                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3540.72:

      if(ilm.lt.mnl)goto 14891                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3541.72:

      if(flmin.ge.1.0)goto 14891                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3542.72:

      if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 14892          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3543.72:

      if(dev(ilm).gt.devmax)goto 14892                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3544.72:

      if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3545.72:

14891 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3546.72:

14892 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3547.72:

      g=log(q)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3548.72:

15520 do 15521 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3549.72:

      g(i,:)=g(i,:)-sum(g(i,:))/nc                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3550.72:

15521 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3551.72:

15522 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3552.72:

      deallocate(sxp,b,bs,v,r,xv,q,mm,is,xm,sc,ga,iy)                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3553.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3554.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3555.72:

      subroutine lcmodval(nc,nx,a0,ca,ia,nin,x,ix,jx,n,f)               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3556.72:

      real a0(nc),ca(nx,nc),x(*),f(nc,n)                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3557.72:

      integer ia(*),ix(*),jx(*)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3558.72:

15530 do 15531 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3559.72:

      f(ic,:)=a0(ic)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3560.72:

15531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3561.72:

15532 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3562.72:

15540 do 15541 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3563.72:

      k=ia(j)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3564.72:

      kb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3565.72:

      ke=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3566.72:

15550 do 15551 ic=1,nc                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3567.72:

      f(ic,jx(kb:ke))=f(ic,jx(kb:ke))+ca(j,ic)*x(kb:ke)                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3568.72:

15551 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3569.72:

15552 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3570.72:

15541 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3571.72:

15542 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3572.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3573.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3574.72:

      subroutine coxnet (parm,no,ni,x,y,d,g,w,jd,vp,ne,nx,nlam,flmin,ula
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3576.72:

      real x(no,ni),y(no),d(no),g(no),w(no),vp(ni),ulam(nlam)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3577.72:

      real ca(nx,nlam),dev(nlam),alm(nlam)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3578.72:

      integer jd(*),ia(nx),nin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3581.72:

      if(maxval(vp) .gt. 0.0)goto 15571                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3582.72:

      jerr=10000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3583.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3584.72:

15571 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3585.72:

      allocate(ww(1:no),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3586.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3587.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3588.72:

      allocate(vq(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3589.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3590.72:

      if(isd .le. 0)goto 15591                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3591.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3592.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3593.72:

15591 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3594.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3595.72:

      call chkvars(no,ni,x,ju)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3596.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3597.72:

      if(maxval(ju) .gt. 0)goto 15611                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3598.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3599.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3600.72:

15611 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3601.72:

      vq=max(0.0,vp)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3602.72:

      vq=vq*ni/sum(vq)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3603.72:

      ww=max(0.0,w)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3604.72:

      sw=sum(ww)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3605.72:

      if(sw .gt. 0.0)goto 15631                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3606.72:

      jerr=9999                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3607.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3608.72:

15631 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3609.72:

      ww=ww/sw                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3610.72:

      call cstandard(no,ni,x,ww,ju,isd,xs)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3611.72:

      call coxnet1(parm,no,ni,x,y,d,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3613.72:

      if(jerr.gt.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3614.72:

      dev0=2.0*sw*dev0                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3615.72:

      if(isd .le. 0)goto 15651                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3616.72:

15660 do 15661 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3617.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3618.72:

      ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3619.72:

15661 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3620.72:

15662 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3621.72:

15651 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3622.72:

      deallocate(ww,ju,vq)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3623.72:

      if(isd.gt.0) deallocate(xs)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3624.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3625.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3626.72:

      subroutine cstandard (no,ni,x,w,ju,isd,xs)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3627.72:

      real x(no,ni),w(no),xs(ni)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3628.72:

      integer ju(ni)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3629.72:

15670 do 15671 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3630.72:

      if(ju(j).eq.0)goto 15671                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3631.72:

      xm=dot_product(w,x(:,j))                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3632.72:

      x(:,j)=x(:,j)-xm                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3633.72:

      if(isd .le. 0)goto 15691                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3634.72:

      xs(j)=sqrt(dot_product(w,x(:,j)**2))                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3635.72:

      x(:,j)=x(:,j)/xs(j)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3636.72:

15691 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3637.72:

15671 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3638.72:

15672 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3639.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3640.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3641.72:

      subroutine coxnet1(parm,no,ni,x,y,d,g,q,ju,vp,ne,nx,nlam,flmin,ula
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3643.72:

      parameter(sml=0.001, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99)
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3644.72:

      real x(no,ni),y(no),q(no),d(no),g(no),vp(ni),ulam(nlam)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3645.72:

      real ao(nx,nlam),dev(nlam),alm(nlam)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3646.72:

      integer ju(ni),m(nx),kin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3650.72:

      allocate(e(1:no),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3651.72:

      allocate(uu(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3652.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3653.72:

      allocate(f(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3654.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3655.72:

      allocate(w(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3656.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3657.72:

      allocate(v(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3658.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3659.72:

      allocate(a(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3660.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3661.72:

      allocate(as(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3662.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3663.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3664.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3665.72:

      allocate(ga(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3666.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3667.72:

      allocate(ixx(1:ni),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3668.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3669.72:

      allocate(jp(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3670.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3671.72:

      allocate(kp(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3672.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3673.72:

      allocate(dk(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3674.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3675.72:

      allocate(wr(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3676.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3677.72:

      allocate(dq(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3678.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3679.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3680.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3681.72:

      if(jerr.ne.0)go to 11790                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3682.72:

      call groups(no,y,d,q,nk,kp,jp,t0,jerr)                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3683.72:

      if(jerr.ne.0) go to 11790                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3684.72:

      alpha=parm                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3685.72:

      oma=1.0-alpha                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3686.72:

      nlm=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3687.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3688.72:

      al=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3689.72:

      dq=d*q                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3690.72:

      call died(no,nk,dq,kp,jp,dk)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3691.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3692.72:

      f(1)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3693.72:

      fmax=log(huge(f(1))*0.1)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3694.72:

      if(nonzero(no,g) .eq. 0)goto 15711                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3695.72:

      f=g-dot_product(q,g)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3696.72:

      e=q*exp(sign(min(abs(f),fmax),f))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3697.72:

      goto 15721                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3698.72:

15711 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3699.72:

      f=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3700.72:

      e=q                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3701.72:

15721 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3702.72:

15701 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3703.72:

      r0=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3704.72:

      rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3705.72:

      dev0=rr                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3706.72:

15730 do 15731 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3707.72:

      if((y(i) .ge. t0) .and. (q(i) .gt. 0.0))goto 15751                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3708.72:

      w(i)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3709.72:

      wr(i)=w(i)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3710.72:

15751 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3711.72:

15731 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3712.72:

15732 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3713.72:

      call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3714.72:

      if(jerr.ne.0) go to 11790                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3715.72:

      if(flmin .ge. 1.0)goto 15771                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3716.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3717.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3718.72:

15771 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3719.72:

      m=0                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3720.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3721.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3722.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3723.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3724.72:

      as=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3725.72:

      cthr=cthri*dev0                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3726.72:

15780 do 15781 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3727.72:

      if(ju(j).eq.0)goto 15781                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3728.72:

      ga(j)=abs(dot_product(wr,x(:,j)))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3729.72:

15781 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3730.72:

15782 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3731.72:

15790 do 15791 ilm=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3732.72:

      al0=al                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3733.72:

      if(flmin .lt. 1.0)goto 15811                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3734.72:

      al=ulam(ilm)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3735.72:

      goto 15801                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3736.72:

15811 if(ilm .le. 2)goto 15821                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3737.72:

      al=al*alf                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3738.72:

      goto 15801                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3739.72:

15821 if(ilm .ne. 1)goto 15831                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3740.72:

      al=big                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3741.72:

      goto 15841                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3742.72:

15831 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3743.72:

      al0=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3744.72:

15850 do 15851 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3745.72:

      if(ju(j).eq.0)goto 15851                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3746.72:

      if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3747.72:

15851 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3748.72:

15852 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3749.72:

      al0=al0/max(parm,1.0e-3)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3750.72:

      al=alf*al0                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3751.72:

15841 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3752.72:

15801 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3753.72:

      sa=alpha*al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3754.72:

      omal=oma*al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3755.72:

      tlam=alpha*(2.0*al-al0)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3756.72:

15860 do 15861 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3757.72:

      if(ixx(k).eq.1)goto 15861                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3758.72:

      if(ju(k).eq.0)goto 15861                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3759.72:

      if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3760.72:

15861 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3761.72:

15862 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3762.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3763.72:

15870 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3764.72:

15871 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3765.72:

      if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3766.72:

      call vars(no,ni,x,w,ixx,v)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3767.72:

15880 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3768.72:

15881 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3769.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3770.72:

      dli=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3771.72:

15890 do 15891 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3772.72:

      if(ixx(j).eq.0)goto 15891                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3773.72:

      u=a(j)*v(j)+dot_product(wr,x(:,j))                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3774.72:

      if(abs(u) .gt. vp(j)*sa)goto 15911                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3775.72:

      at=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3776.72:

      goto 15921                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3777.72:

15911 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3778.72:

      at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3779.72:

15921 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3780.72:

15901 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3781.72:

      if(at .eq. a(j))goto 15941                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3782.72:

      del=at-a(j)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3783.72:

      a(j)=at                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3784.72:

      dli=max(dli,v(j)*del**2)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3785.72:

      wr=wr-del*w*x(:,j)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3786.72:

      f=f+del*x(:,j)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3787.72:

      if(mm(j) .ne. 0)goto 15961                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3788.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3789.72:

      if(nin.gt.nx)goto 15892                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3790.72:

      mm(j)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3791.72:

      m(nin)=j                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3792.72:

15961 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3793.72:

15941 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3794.72:

15891 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3795.72:

15892 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3796.72:

      if(nin.gt.nx)goto 15882                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3797.72:

      if(dli.lt.cthr)goto 15882                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3798.72:

      if(nlp .le. maxit)goto 15981                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3799.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3800.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3801.72:

15981 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3802.72:

15990 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3803.72:

15991 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3804.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3805.72:

      dli=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3806.72:

16000 do 16001 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3807.72:

      j=m(l)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3808.72:

      u=a(j)*v(j)+dot_product(wr,x(:,j))                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3809.72:

      if(abs(u) .gt. vp(j)*sa)goto 16021                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3810.72:

      at=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3811.72:

      goto 16031                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3812.72:

16021 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3813.72:

      at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3814.72:

16031 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3815.72:

16011 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3816.72:

      if(at .eq. a(j))goto 16051                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3817.72:

      del=at-a(j)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3818.72:

      a(j)=at                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3819.72:

      dli=max(dli,v(j)*del**2)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3820.72:

      wr=wr-del*w*x(:,j)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3821.72:

      f=f+del*x(:,j)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3822.72:

16051 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3823.72:

16001 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3824.72:

16002 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3825.72:

      if(dli.lt.cthr)goto 15992                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3826.72:

      if(nlp .le. maxit)goto 16071                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3827.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3828.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3829.72:

16071 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3830.72:

      goto 15991                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3831.72:

15992 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3832.72:

      goto 15881                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3833.72:

15882 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3834.72:

      if(nin.gt.nx)goto 15872                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3835.72:

      e=q*exp(sign(min(abs(f),fmax),f))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3836.72:

      call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3837.72:

      if(jerr .eq. 0)goto 16091                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3838.72:

      jerr=jerr-ilm                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3839.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3840.72:

16091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3841.72:

      ix=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3842.72:

16100 do 16101 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3843.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3844.72:

      if(v(k)*(a(k)-as(k))**2.lt.cthr)goto 16101                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3845.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3846.72:

      goto 16102                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3847.72:

16101 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3848.72:

16102 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3849.72:

      if(ix .ne. 0)goto 16121                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3850.72:

16130 do 16131 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3851.72:

      if(ixx(k).eq.1)goto 16131                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3852.72:

      if(ju(k).eq.0)goto 16131                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3853.72:

      ga(k)=abs(dot_product(wr,x(:,k)))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3854.72:

      if(ga(k) .le. sa*vp(k))goto 16151                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3855.72:

      ixx(k)=1                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3856.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3857.72:

16151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3858.72:

16131 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3859.72:

16132 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3860.72:

      if(ix.eq.1) go to 10680                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3861.72:

      goto 15872                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3862.72:

16121 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3863.72:

      goto 15871                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3864.72:

15872 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3865.72:

      if(nin .le. nx)goto 16171                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3866.72:

      jerr=-10000-ilm                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3867.72:

      goto 15792                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3868.72:

16171 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3869.72:

      if(nin.gt.0) ao(1:nin,ilm)=a(m(1:nin))                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3870.72:

      kin(ilm)=nin                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3871.72:

      alm(ilm)=al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3872.72:

      lmu=ilm                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3873.72:

      dev(ilm)=(risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)-r0)/rr                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3874.72:

      if(ilm.lt.mnl)goto 15791                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3875.72:

      if(flmin.ge.1.0)goto 15791                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3876.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3877.72:

16180 do 16181 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3878.72:

      if(ao(j,ilm).ne.0.0) me=me+1                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3879.72:

16181 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3880.72:

16182 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3881.72:

      if(me.gt.ne)goto 15792                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3882.72:

      if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 15792           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3883.72:

      if(dev(ilm).gt.devmax)goto 15792                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3884.72:

15791 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3885.72:

15792 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3886.72:

      g=f                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3887.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3888.72:

      deallocate(e,uu,w,dk,v,xs,f,wr,a,as,jp,kp,dq,mm,ga,ixx)           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3889.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3890.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3891.72:

      subroutine cxmodval(ca,ia,nin,n,x,f)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3892.72:

      real ca(nin),x(n,*),f(n)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3893.72:

      integer ia(nin)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3894.72:

      f=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3895.72:

      if(nin.le.0) return                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3896.72:

16190 do 16191 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3897.72:

      f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3898.72:

16191 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3899.72:

16192 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3900.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3901.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3902.72:

      subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3903.72:

      real y(no),d(no),q(no)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3904.72:

      integer jp(no),kp(*)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3905.72:

16200 do 16201 j=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3906.72:

      jp(j)=j                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3907.72:

16201 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3908.72:

16202 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3909.72:

      call psort7(y,jp,1,no)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3910.72:

      nj=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3911.72:

16210 do 16211 j=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3912.72:

      if(q(jp(j)).le.0.0)goto 16211                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3913.72:

      nj=nj+1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3914.72:

      jp(nj)=jp(j)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3915.72:

16211 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3916.72:

16212 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3917.72:

      if(nj .ne. 0)goto 16231                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3918.72:

      jerr=20000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3919.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3920.72:

16231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3921.72:

      j=1                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3922.72:

16240 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3923.72:

16241 if(d(jp(j)).gt.0.0)goto 16242                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3924.72:

      j=j+1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3925.72:

      if(j.gt.nj)goto 16242                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3926.72:

      goto 16241                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3927.72:

16242 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3928.72:

      if(j .lt. nj-1)goto 16261                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3929.72:

      jerr=30000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3930.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3931.72:

16261 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3932.72:

      j0=j-1                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3933.72:

      nj=nj-j0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3934.72:

16270 do 16271 j=1,nj                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3935.72:

      jp(j)=jp(j+j0)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3936.72:

16271 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3937.72:

16272 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3938.72:

      jerr=0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3939.72:

      nk=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3940.72:

      t0=y(jp(1))                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3941.72:

      yk=t0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3942.72:

      j=2                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3943.72:

16280 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3944.72:

16281 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3945.72:

16290 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3946.72:

16291 if(d(jp(j)).gt.0.0.and.y(jp(j)).gt.yk)goto 16292                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3947.72:

      j=j+1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3948.72:

      if(j.gt.nj)goto 16292                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3949.72:

      goto 16291                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3950.72:

16292 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3951.72:

      nk=nk+1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3952.72:

      kp(nk)=j-1                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3953.72:

      if(j.gt.nj)goto 16282                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3954.72:

      if(j .ne. nj)goto 16311                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3955.72:

      nk=nk+1                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3956.72:

      kp(nk)=nj                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3957.72:

      goto 16282                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3958.72:

16311 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3959.72:

      yk=y(jp(j))                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3960.72:

      j=j+1                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3961.72:

      goto 16281                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3962.72:

16282 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3963.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3964.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3965.72:

      subroutine outer(no,nk,d,dk,kp,jp,e,wr,w,jerr,u)                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3966.72:

      real d(no),dk(nk),wr(no),w(no)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3967.72:

      real e(no),u(no),b,c                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3968.72:

      integer kp(nk),jp(no)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3969.72:

      call usk(no,nk,kp,jp,e,u)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3970.72:

      b=dk(1)/u(1)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3971.72:

      c=dk(1)/u(1)**2                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3972.72:

      jerr=0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3973.72:

16320 do 16321 j=1,kp(1)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3974.72:

      i=jp(j)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3975.72:

      w(i)=e(i)*(b-e(i)*c)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3976.72:

      if(w(i) .gt. 0.0)goto 16341                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3977.72:

      jerr=-3                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3978.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3979.72:

16341 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3980.72:

      wr(i)=d(i)-e(i)*b                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3981.72:

16321 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3982.72:

16322 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3983.72:

16350 do 16351 k=2,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3984.72:

      j1=kp(k-1)+1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3985.72:

      j2=kp(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3986.72:

      b=b+dk(k)/u(k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3987.72:

      c=c+dk(k)/u(k)**2                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3988.72:

16360 do 16361 j=j1,j2                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3989.72:

      i=jp(j)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3990.72:

      w(i)=e(i)*(b-e(i)*c)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3991.72:

      if(w(i) .gt. 0.0)goto 16381                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3992.72:

      jerr=-30000                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3993.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3994.72:

16381 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3995.72:

      wr(i)=d(i)-e(i)*b                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3996.72:

16361 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3997.72:

16362 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3998.72:

16351 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:3999.72:

16352 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4000.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4001.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4002.72:

      subroutine vars(no,ni,x,w,ixx,v)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4003.72:

      real x(no,ni),w(no),v(ni)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4004.72:

      integer ixx(ni)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4005.72:

16390 do 16391 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4006.72:

      if(ixx(j).gt.0) v(j)=dot_product(w,x(:,j)**2)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4007.72:

16391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4008.72:

16392 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4009.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4010.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4011.72:

      subroutine died(no,nk,d,kp,jp,dk)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4012.72:

      real d(no),dk(nk)                                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4013.72:

      integer kp(nk),jp(no)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4014.72:

      dk(1)=sum(d(jp(1:kp(1))))                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4015.72:

16400 do 16401 k=2,nk                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4016.72:

      dk(k)=sum(d(jp((kp(k-1)+1):kp(k))))                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4017.72:

16401 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4018.72:

16402 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4019.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4020.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4021.72:

      subroutine usk(no,nk,kp,jp,e,u)                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4022.72:

      real e(no),u(nk),h                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4023.72:

      integer kp(nk),jp(no)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4024.72:

      h=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4025.72:

16410 do 16411 k=nk,1,-1                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4026.72:

      j2=kp(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4027.72:

      j1=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4028.72:

      if(k.gt.1) j1=kp(k-1)+1                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4029.72:

16420 do 16421 j=j2,j1,-1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4030.72:

      h=h+e(jp(j))                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4031.72:

16421 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4032.72:

16422 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4033.72:

      u(k)=h                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4034.72:

16411 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4035.72:

16412 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4036.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4037.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4038.72:

      function risk(no,ni,nk,d,dk,f,e,kp,jp,u)                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4039.72:

      real d(no),dk(nk),f(no)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4040.72:

      integer kp(nk),jp(no)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4041.72:

      real e(no),u(nk),s                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4042.72:

      call usk(no,nk,kp,jp,e,u)                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4043.72:

      u=log(u)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4044.72:

      risk=dot_product(d,f)-dot_product(dk,u)                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4045.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4046.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4047.72:

      subroutine loglike(no,ni,x,y,d,g,w,nlam,a,flog,jerr)              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4048.72:

      real x(no,ni),y(no),d(no),g(no),w(no),a(ni,nlam),flog(nlam)       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4052.72:

      allocate(e(1:no),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4053.72:

      allocate(q(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4054.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4055.72:

      allocate(uu(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4056.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4057.72:

      allocate(f(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4058.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4059.72:

      allocate(dk(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4060.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4061.72:

      allocate(jp(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4062.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4063.72:

      allocate(kp(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4064.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4065.72:

      allocate(dq(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4066.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4067.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4068.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4069.72:

      if(jerr.ne.0) go to 11790                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4070.72:

      q=max(0.0,w)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4071.72:

      sw=sum(q)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4072.72:

      if(sw .gt. 0.0)goto 16441                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4073.72:

      jerr=9999                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4074.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4075.72:

16441 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4076.72:

      call groups(no,y,d,q,nk,kp,jp,t0,jerr)                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4077.72:

      if(jerr.ne.0) go to 11790                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4078.72:

      fmax=log(huge(e(1))*0.1)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4079.72:

      dq=d*q                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4080.72:

      call died(no,nk,dq,kp,jp,dk)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4081.72:

      gm=dot_product(q,g)/sw                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4082.72:

16450 do 16451 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4083.72:

      xm(j)=dot_product(q,x(:,j))/sw                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4084.72:

16451 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4085.72:

16452 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4086.72:

16460 do 16461 lam=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4087.72:

16470 do 16471 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4088.72:

      f(i)=g(i)-gm+dot_product(a(:,lam),(x(i,:)-xm))                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4089.72:

      e(i)=q(i)*exp(sign(min(abs(f(i)),fmax),f(i)))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4090.72:

16471 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4091.72:

16472 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4092.72:

      flog(lam)=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4093.72:

16461 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4094.72:

16462 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4095.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4096.72:

      deallocate(e,uu,dk,f,jp,kp,dq)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4097.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4098.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4099.72:

      subroutine fishnet (parm,no,ni,x,y,g,w,jd,vp,ne,nx,nlam,flmin,ulam
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4101.72:

      real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4102.72:

      real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4103.72:

      integer jd(*),ia(nx),nin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4106.72:

      if(maxval(vp) .gt. 0.0)goto 16491                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4107.72:

      jerr=10000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4108.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4109.72:

16491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4110.72:

      if(minval(y) .ge. 0.0)goto 16511                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4111.72:

      jerr=8888                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4112.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4113.72:

16511 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4114.72:

      allocate(ww(1:no),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4115.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4116.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4117.72:

      allocate(vq(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4118.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4119.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4120.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4121.72:

      if(isd .le. 0)goto 16531                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4122.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4123.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4124.72:

16531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4125.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4126.72:

      call chkvars(no,ni,x,ju)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4127.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4128.72:

      if(maxval(ju) .gt. 0)goto 16551                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4129.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4130.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4131.72:

16551 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4132.72:

      vq=max(0.0,vp)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4133.72:

      vq=vq*ni/sum(vq)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4134.72:

      ww=max(0.0,w)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4135.72:

      sw=sum(ww)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4136.72:

      if(sw .gt. 0.0)goto 16571                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4137.72:

      jerr=9999                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4138.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4139.72:

16571 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4140.72:

      ww=ww/sw                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4141.72:

      call lstandard1(no,ni,x,ww,ju,isd,xm,xs)                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4142.72:

      call fishnet1(parm,no,ni,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4144.72:

      if(jerr.gt.0) go to 11790                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4145.72:

      dev0=2.0*sw*dev0                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4146.72:

16580 do 16581 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4147.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4148.72:

      if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4149.72:

      a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4150.72:

16581 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4151.72:

16582 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4152.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4153.72:

      deallocate(ww,ju,vq,xm)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4154.72:

      if(isd.gt.0) deallocate(xs)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4155.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4156.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4157.72:

      subroutine fishnet1(parm,no,ni,x,y,g,q,ju,vp,ne,nx,nlam,flmin,ulam
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4159.72:

      parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4161.72:

      real x(no,ni),y(no),g(no),q(no),vp(ni),ulam(nlam)                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4162.72:

      real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4163.72:

      integer ju(ni),m(nx),kin(nlam)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4166.72:

      allocate(a(1:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4167.72:

      allocate(as(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4168.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4169.72:

      allocate(t(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4170.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4171.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4172.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4173.72:

      allocate(ga(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4174.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4175.72:

      allocate(ixx(1:ni),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4176.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4177.72:

      allocate(wr(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4178.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4179.72:

      allocate(v(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4180.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4181.72:

      allocate(w(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4182.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4183.72:

      allocate(f(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4184.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4185.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4186.72:

      bta=parm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4187.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4188.72:

      t=q*y                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4189.72:

      yb=sum(t)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4190.72:

      fmax=log(huge(bta)*0.1)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4191.72:

      if(nonzero(no,g) .ne. 0)goto 16601                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4192.72:

      w=q*yb                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4193.72:

      az=log(yb)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4194.72:

      f=az                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4195.72:

      dv0=yb*(log(yb)-1.0)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4196.72:

      goto 16611                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4197.72:

16601 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4198.72:

      w=q*exp(sign(min(abs(g),fmax),g))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4199.72:

      v0=sum(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4200.72:

      eaz=yb/v0                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4201.72:

      w=eaz*w                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4202.72:

      az=log(eaz)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4203.72:

      f=az+g                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4204.72:

      dv0=dot_product(t,g)-yb*(1.0-az)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4205.72:

16611 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4206.72:

16591 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4207.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4208.72:

      as=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4209.72:

      wr=t-w                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4210.72:

      v0=yb                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4211.72:

      dvr=-yb                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4212.72:

16620 do 16621 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4213.72:

      if(t(i).gt.0.0) dvr=dvr+t(i)*log(y(i))                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4214.72:

16621 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4215.72:

16622 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4216.72:

      dvr=dvr-dv0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4217.72:

      dev0=dvr                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4218.72:

      if(flmin .ge. 1.0)goto 16641                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4219.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4220.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4221.72:

16641 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4222.72:

      m=0                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4223.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4224.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4225.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4226.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4227.72:

      shr=shri*dev0                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4228.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4229.72:

      al=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4230.72:

16650 do 16651 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4231.72:

      if(ju(j).eq.0)goto 16651                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4232.72:

      ga(j)=abs(dot_product(wr,x(:,j)))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4233.72:

16651 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4234.72:

16652 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4235.72:

16660 do 16661 ilm=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4236.72:

      al0=al                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4237.72:

      if(flmin .lt. 1.0)goto 16681                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4238.72:

      al=ulam(ilm)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4239.72:

      goto 16671                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4240.72:

16681 if(ilm .le. 2)goto 16691                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4241.72:

      al=al*alf                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4242.72:

      goto 16671                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4243.72:

16691 if(ilm .ne. 1)goto 16701                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4244.72:

      al=big                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4245.72:

      goto 16711                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4246.72:

16701 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4247.72:

      al0=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4248.72:

16720 do 16721 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4249.72:

      if(ju(j).eq.0)goto 16721                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4250.72:

      if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4251.72:

16721 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4252.72:

16722 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4253.72:

      al0=al0/max(bta,1.0e-3)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4254.72:

      al=alf*al0                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4255.72:

16711 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4256.72:

16671 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4257.72:

      al2=al*omb                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4258.72:

      al1=al*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4259.72:

      tlam=bta*(2.0*al-al0)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4260.72:

16730 do 16731 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4261.72:

      if(ixx(k).eq.1)goto 16731                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4262.72:

      if(ju(k).eq.0)goto 16731                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4263.72:

      if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4264.72:

16731 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4265.72:

16732 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4266.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4267.72:

16740 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4268.72:

16741 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4269.72:

      az0=az                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4270.72:

      if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4271.72:

16750 do 16751 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4272.72:

      if(ixx(j).ne.0) v(j)=dot_product(w,x(:,j)**2)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4273.72:

16751 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4274.72:

16752 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4275.72:

16760 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4276.72:

16761 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4277.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4278.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4279.72:

16770 do 16771 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4280.72:

      if(ixx(k).eq.0)goto 16771                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4281.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4282.72:

      u=dot_product(wr,x(:,k))+v(k)*ak                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4283.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4284.72:

      if(au .gt. 0.0)goto 16791                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4285.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4286.72:

      goto 16801                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4287.72:

16791 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4288.72:

      a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4289.72:

16801 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4290.72:

16781 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4291.72:

      if(a(k).eq.ak)goto 16771                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4292.72:

      d=a(k)-ak                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4293.72:

      dlx=max(dlx,v(k)*d**2)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4294.72:

      wr=wr-d*w*x(:,k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4295.72:

      f=f+d*x(:,k)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4296.72:

      if(mm(k) .ne. 0)goto 16821                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4297.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4298.72:

      if(nin.gt.nx)goto 16772                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4299.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4300.72:

      m(nin)=k                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4301.72:

16821 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4302.72:

16771 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4303.72:

16772 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4304.72:

      if(nin.gt.nx)goto 16762                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4305.72:

      d=sum(wr)/v0                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4306.72:

      az=az+d                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4307.72:

      dlx=max(dlx,v0*d**2)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4308.72:

      wr=wr-d*w                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4309.72:

      f=f+d                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4310.72:

      if(dlx.lt.shr)goto 16762                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4311.72:

      if(nlp .le. maxit)goto 16841                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4312.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4313.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4314.72:

16841 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4315.72:

16850 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4316.72:

16851 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4317.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4318.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4319.72:

16860 do 16861 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4320.72:

      k=m(l)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4321.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4322.72:

      u=dot_product(wr,x(:,k))+v(k)*ak                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4323.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4324.72:

      if(au .gt. 0.0)goto 16881                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4325.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4326.72:

      goto 16891                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4327.72:

16881 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4328.72:

      a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4329.72:

16891 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4330.72:

16871 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4331.72:

      if(a(k).eq.ak)goto 16861                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4332.72:

      d=a(k)-ak                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4333.72:

      dlx=max(dlx,v(k)*d**2)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4334.72:

      wr=wr-d*w*x(:,k)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4335.72:

      f=f+d*x(:,k)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4336.72:

16861 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4337.72:

16862 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4338.72:

      d=sum(wr)/v0                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4339.72:

      az=az+d                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4340.72:

      dlx=max(dlx,v0*d**2)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4341.72:

      wr=wr-d*w                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4342.72:

      f=f+d                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4343.72:

      if(dlx.lt.shr)goto 16852                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4344.72:

      if(nlp .le. maxit)goto 16911                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4345.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4346.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4347.72:

16911 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4348.72:

      goto 16851                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4349.72:

16852 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4350.72:

      goto 16761                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4351.72:

16762 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4352.72:

      if(nin.gt.nx)goto 16742                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4353.72:

      w=q*exp(sign(min(abs(f),fmax),f))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4354.72:

      v0=sum(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4355.72:

      wr=t-w                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4356.72:

      if(v0*(az-az0)**2 .ge. shr)goto 16931                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4357.72:

      ix=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4358.72:

16940 do 16941 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4359.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4360.72:

      if(v(k)*(a(k)-as(k))**2.lt.shr)goto 16941                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4361.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4362.72:

      goto 16942                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4363.72:

16941 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4364.72:

16942 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4365.72:

      if(ix .ne. 0)goto 16961                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4366.72:

16970 do 16971 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4367.72:

      if(ixx(k).eq.1)goto 16971                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4368.72:

      if(ju(k).eq.0)goto 16971                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4369.72:

      ga(k)=abs(dot_product(wr,x(:,k)))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4370.72:

      if(ga(k) .le. al1*vp(k))goto 16991                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4371.72:

      ixx(k)=1                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4372.72:

      ix=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4373.72:

16991 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4374.72:

16971 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4375.72:

16972 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4376.72:

      if(ix.eq.1) go to 10680                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4377.72:

      goto 16742                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4378.72:

16961 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4379.72:

16931 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4380.72:

      goto 16741                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4381.72:

16742 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4382.72:

      if(nin .le. nx)goto 17011                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4383.72:

      jerr=-10000-ilm                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4384.72:

      goto 16662                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4385.72:

17011 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4386.72:

      if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4387.72:

      kin(ilm)=nin                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4388.72:

      a0(ilm)=az                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4389.72:

      alm(ilm)=al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4390.72:

      lmu=ilm                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4391.72:

      dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4392.72:

      if(ilm.lt.mnl)goto 16661                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4393.72:

      if(flmin.ge.1.0)goto 16661                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4394.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4395.72:

17020 do 17021 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4396.72:

      if(ca(j,ilm).ne.0.0) me=me+1                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4397.72:

17021 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4398.72:

17022 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4399.72:

      if(me.gt.ne)goto 16662                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4400.72:

      if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 16662           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4401.72:

      if(dev(ilm).gt.devmax)goto 16662                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4402.72:

16661 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4403.72:

16662 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4404.72:

      g=f                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4405.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4406.72:

      deallocate(t,w,wr,v,a,f,as,mm,ga,ixx)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4407.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4408.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4409.72:

      function nonzero(n,v)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4410.72:

      real v(n)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4411.72:

      nonzero=0                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4412.72:

17030 do 17031 i=1,n                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4413.72:

      if(v(i) .eq. 0.0)goto 17051                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4414.72:

      nonzero=1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4415.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4416.72:

17051 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4417.72:

17031 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4418.72:

17032 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4419.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4420.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4421.72:

      subroutine solns(ni,nx,lmu,a,ia,nin,b)                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4422.72:

      real a(nx,lmu),b(ni,lmu)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4423.72:

      integer ia(nx),nin(lmu)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4424.72:

17060 do 17061 lam=1,lmu                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4425.72:

      call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam))                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4426.72:

17061 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4427.72:

17062 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4428.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4429.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4430.72:

      subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4431.72:

      real a(nx,nc,lmu),b(ni,nc,lmu)                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4432.72:

      integer ia(nx),nin(lmu)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4433.72:

17070 do 17071 lam=1,lmu                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4434.72:

      call luncomp(ni,nx,nc,a(1,1,lam),ia,nin(lam),b(1,1,lam))          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4435.72:

17071 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4436.72:

17072 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4437.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4438.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4439.72:

      subroutine deviance(no,ni,x,y,g,q,nlam,a0,a,flog,jerr)            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4440.72:

      real x(no,ni),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4442.72:

      if(minval(y) .ge. 0.0)goto 17091                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4443.72:

      jerr=8888                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4444.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4445.72:

17091 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4446.72:

      allocate(w(1:no),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4447.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4448.72:

      w=max(0.0,q)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4449.72:

      sw=sum(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4450.72:

      if(sw .gt. 0.0)goto 17111                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4451.72:

      jerr=9999                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4452.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4453.72:

17111 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4454.72:

      yb=dot_product(w,y)/sw                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4455.72:

      fmax=log(huge(y(1))*0.1)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4456.72:

17120 do 17121 lam=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4457.72:

      s=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4458.72:

17130 do 17131 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4459.72:

      if(w(i).le.0.0)goto 17131                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4460.72:

      f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:))                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4461.72:

      s=s+w(i)*(y(i)*f-exp(sign(min(abs(f),fmax),f)))                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4462.72:

17131 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4463.72:

17132 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4464.72:

      flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4465.72:

17121 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4466.72:

17122 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4467.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4468.72:

      deallocate(w)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4469.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4470.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4471.72:

      subroutine spfishnet (parm,no,ni,x,ix,jx,y,g,w,jd,vp,ne,nx,nlam,fl
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4473.72:

      real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4474.72:

      real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4475.72:

      integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4478.72:

      if(maxval(vp) .gt. 0.0)goto 17151                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4479.72:

      jerr=10000                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4480.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4481.72:

17151 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4482.72:

      if(minval(y) .ge. 0.0)goto 17171                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4483.72:

      jerr=8888                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4484.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4485.72:

17171 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4486.72:

      allocate(ww(1:no),stat=jerr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4487.72:

      allocate(ju(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4488.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4489.72:

      allocate(vq(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4490.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4491.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4492.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4493.72:

      allocate(xs(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4494.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4495.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4496.72:

      call spchkvars(no,ni,x,ix,ju)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4497.72:

      if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4498.72:

      if(maxval(ju) .gt. 0)goto 17191                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4499.72:

      jerr=7777                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4500.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4501.72:

17191 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4502.72:

      vq=max(0.0,vp)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4503.72:

      vq=vq*ni/sum(vq)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4504.72:

      ww=max(0.0,w)                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4505.72:

      sw=sum(ww)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4506.72:

      if(sw .gt. 0.0)goto 17211                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4507.72:

      jerr=9999                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4508.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4509.72:

17211 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4510.72:

      ww=ww/sw                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4511.72:

      call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4512.72:

      call spfishnet1(parm,no,ni,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmin,u
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4514.72:

      if(jerr.gt.0) go to 11790                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4515.72:

      dev0=2.0*sw*dev0                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4516.72:

17220 do 17221 k=1,lmu                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4517.72:

      nk=nin(k)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4518.72:

      if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4519.72:

      a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4520.72:

17221 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4521.72:

17222 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4522.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4523.72:

      deallocate(ww,ju,vq,xm,xs)                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4524.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4525.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4526.72:

      subroutine spfishnet1(parm,no,ni,x,ix,jx,y,g,q,ju,vp,ne,nx,nlam,fl
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4529.72:

      parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4531.72:

      real x(*),y(no),g(no),q(no),vp(ni),ulam(nlam),xb(ni),xs(ni)       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4532.72:

      real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4533.72:

      integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4536.72:

      allocate(a(1:ni),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4537.72:

      allocate(as(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4538.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4539.72:

      allocate(t(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4540.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4541.72:

      allocate(mm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4542.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4543.72:

      allocate(ga(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4544.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4545.72:

      allocate(ixx(1:ni),stat=ierr)                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4546.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4547.72:

      allocate(wr(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4548.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4549.72:

      allocate(v(1:ni),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4550.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4551.72:

      allocate(xm(1:ni),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4552.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4553.72:

      allocate(w(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4554.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4555.72:

      allocate(qy(1:no),stat=ierr)                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4556.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4557.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4558.72:

      bta=parm                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4559.72:

      omb=1.0-bta                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4560.72:

      fmax=log(huge(bta)*0.1)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4561.72:

      qy=q*y                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4562.72:

      yb=sum(qy)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4563.72:

      if(nonzero(no,g) .ne. 0)goto 17241                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4564.72:

      w=q*yb                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4565.72:

      az=log(yb)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4566.72:

      uu=az                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4567.72:

      xm=yb*xb                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4568.72:

      t=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4569.72:

      dv0=yb*(log(yb)-1.0)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4570.72:

      goto 17251                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4571.72:

17241 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4572.72:

      w=q*exp(sign(min(abs(g),fmax),g))                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4573.72:

      ww=sum(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4574.72:

      eaz=yb/ww                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4575.72:

      w=eaz*w                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4576.72:

      az=log(eaz)                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4577.72:

      uu=az                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4578.72:

      t=g                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4579.72:

      dv0=dot_product(qy,g)-yb*(1.0-az)                                 
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4580.72:

17260 do 17261 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4581.72:

      if(ju(j).eq.0)goto 17261                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4582.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4583.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4584.72:

      xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4585.72:

17261 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4586.72:

17262 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4587.72:

17251 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4588.72:

17231 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4589.72:

      tt=yb*uu                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4590.72:

      ww=yb                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4591.72:

      wr=qy-q*(yb*(1.0-uu))                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4592.72:

      a=0.0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4593.72:

      as=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4594.72:

      dvr=-yb                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4595.72:

17270 do 17271 i=1,no                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4596.72:

      if(qy(i).gt.0.0) dvr=dvr+qy(i)*log(y(i))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4597.72:

17271 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4598.72:

17272 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4599.72:

      dvr=dvr-dv0                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4600.72:

      dev0=dvr                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4601.72:

      if(flmin .ge. 1.0)goto 17291                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4602.72:

      eqs=max(eps,flmin)                                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4603.72:

      alf=eqs**(1.0/(nlam-1))                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4604.72:

17291 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4605.72:

      m=0                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4606.72:

      mm=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4607.72:

      nlp=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4608.72:

      nin=nlp                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4609.72:

      mnl=min(mnlam,nlam)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4610.72:

      shr=shri*dev0                                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4611.72:

      al=0.0                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4612.72:

      ixx=0                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4613.72:

17300 do 17301 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4614.72:

      if(ju(j).eq.0)goto 17301                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4615.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4616.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4617.72:

      ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(j)-ww*xb(j)
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4619.72:

17301 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4620.72:

17302 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4621.72:

17310 do 17311 ilm=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4622.72:

      al0=al                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4623.72:

      if(flmin .lt. 1.0)goto 17331                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4624.72:

      al=ulam(ilm)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4625.72:

      goto 17321                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4626.72:

17331 if(ilm .le. 2)goto 17341                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4627.72:

      al=al*alf                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4628.72:

      goto 17321                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4629.72:

17341 if(ilm .ne. 1)goto 17351                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4630.72:

      al=big                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4631.72:

      goto 17361                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4632.72:

17351 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4633.72:

      al0=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4634.72:

17370 do 17371 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4635.72:

      if(ju(j).eq.0)goto 17371                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4636.72:

      if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4637.72:

17371 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4638.72:

17372 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4639.72:

      al0=al0/max(bta,1.0e-3)                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4640.72:

      al=alf*al0                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4641.72:

17361 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4642.72:

17321 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4643.72:

      al2=al*omb                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4644.72:

      al1=al*bta                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4645.72:

      tlam=bta*(2.0*al-al0)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4646.72:

17380 do 17381 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4647.72:

      if(ixx(k).eq.1)goto 17381                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4648.72:

      if(ju(k).eq.0)goto 17381                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4649.72:

      if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4650.72:

17381 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4651.72:

17382 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4652.72:

10680 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4653.72:

17390 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4654.72:

17391 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4655.72:

      az0=az                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4656.72:

      if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4657.72:

17400 do 17401 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4658.72:

      if(ixx(j).eq.0)goto 17401                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4659.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4660.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4661.72:

      xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4662.72:

      v(j)=(dot_product(w(jx(jb:je)),x(jb:je)**2)  -2.0*xb(j)*xm(j)+ww*x
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4664.72:

17401 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4665.72:

17402 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4666.72:

17410 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4667.72:

17411 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4668.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4669.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4670.72:

17420 do 17421 k=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4671.72:

      if(ixx(k).eq.0)goto 17421                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4672.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4673.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4674.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4675.72:

      u=(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(k)-ww*xb(k))-xb(k)
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4677.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4678.72:

      if(au .gt. 0.0)goto 17441                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4679.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4680.72:

      goto 17451                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4681.72:

17441 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4682.72:

      a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4683.72:

17451 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4684.72:

17431 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4685.72:

      if(a(k).eq.ak)goto 17421                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4686.72:

      if(mm(k) .ne. 0)goto 17471                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4687.72:

      nin=nin+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4688.72:

      if(nin.gt.nx)goto 17422                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4689.72:

      mm(k)=nin                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4690.72:

      m(nin)=k                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4691.72:

17471 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4692.72:

      d=a(k)-ak                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4693.72:

      dlx=max(dlx,v(k)*d**2)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4694.72:

      dv=d/xs(k)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4695.72:

      wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4696.72:

      t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4697.72:

      uu=uu-dv*xb(k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4698.72:

      tt=tt-dv*xm(k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4699.72:

17421 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4700.72:

17422 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4701.72:

      if(nin.gt.nx)goto 17412                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4702.72:

      d=tt/ww-uu                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4703.72:

      az=az+d                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4704.72:

      dlx=max(dlx,ww*d**2)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4705.72:

      uu=uu+d                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4706.72:

      if(dlx.lt.shr)goto 17412                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4707.72:

      if(nlp .le. maxit)goto 17491                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4708.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4709.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4710.72:

17491 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4711.72:

17500 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4712.72:

17501 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4713.72:

      nlp=nlp+1                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4714.72:

      dlx=0.0                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4715.72:

17510 do 17511 l=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4716.72:

      k=m(l)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4717.72:

      jb=ix(k)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4718.72:

      je=ix(k+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4719.72:

      ak=a(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4720.72:

      u=(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(k)-ww*xb(k))-xb(k)
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4722.72:

      au=abs(u)-vp(k)*al1                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4723.72:

      if(au .gt. 0.0)goto 17531                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4724.72:

      a(k)=0.0                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4725.72:

      goto 17541                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4726.72:

17531 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4727.72:

      a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4728.72:

17541 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4729.72:

17521 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4730.72:

      if(a(k).eq.ak)goto 17511                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4731.72:

      d=a(k)-ak                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4732.72:

      dlx=max(dlx,v(k)*d**2)                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4733.72:

      dv=d/xs(k)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4734.72:

      wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4735.72:

      t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4736.72:

      uu=uu-dv*xb(k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4737.72:

      tt=tt-dv*xm(k)                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4738.72:

17511 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4739.72:

17512 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4740.72:

      d=tt/ww-uu                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4741.72:

      az=az+d                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4742.72:

      dlx=max(dlx,ww*d**2)                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4743.72:

      uu=uu+d                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4744.72:

      if(dlx.lt.shr)goto 17502                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4745.72:

      if(nlp .le. maxit)goto 17561                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4746.72:

      jerr=-ilm                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4747.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4748.72:

17561 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4749.72:

      goto 17501                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4750.72:

17502 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4751.72:

      goto 17411                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4752.72:

17412 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4753.72:

      if(nin.gt.nx)goto 17392                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4754.72:

      euu=exp(sign(min(abs(uu),fmax),uu))                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4755.72:

      w=euu*q*exp(sign(min(abs(t),fmax),t))                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4756.72:

      ww=sum(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4757.72:

      wr=qy-w*(1.0-uu)                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4758.72:

      tt=sum(wr)                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4759.72:

      if(ww*(az-az0)**2 .ge. shr)goto 17581                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4760.72:

      kx=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4761.72:

17590 do 17591 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4762.72:

      k=m(j)                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4763.72:

      if(v(k)*(a(k)-as(k))**2.lt.shr)goto 17591                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4764.72:

      kx=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4765.72:

      goto 17592                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4766.72:

17591 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4767.72:

17592 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4768.72:

      if(kx .ne. 0)goto 17611                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4769.72:

17620 do 17621 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4770.72:

      if(ixx(j).eq.1)goto 17621                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4771.72:

      if(ju(j).eq.0)goto 17621                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4772.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4773.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4774.72:

      xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4775.72:

      ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(j)-ww*xb(j)
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4777.72:

      if(ga(j) .le. al1*vp(j))goto 17641                                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4778.72:

      ixx(j)=1                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4779.72:

      kx=1                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4780.72:

17641 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4781.72:

17621 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4782.72:

17622 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4783.72:

      if(kx.eq.1) go to 10680                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4784.72:

      goto 17392                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4785.72:

17611 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4786.72:

17581 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4787.72:

      goto 17391                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4788.72:

17392 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4789.72:

      if(nin .le. nx)goto 17661                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4790.72:

      jerr=-10000-ilm                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4791.72:

      goto 17312                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4792.72:

17661 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4793.72:

      if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4794.72:

      kin(ilm)=nin                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4795.72:

      a0(ilm)=az                                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4796.72:

      alm(ilm)=al                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4797.72:

      lmu=ilm                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4798.72:

      dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4799.72:

      if(ilm.lt.mnl)goto 17311                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4800.72:

      if(flmin.ge.1.0)goto 17311                                        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4801.72:

      me=0                                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4802.72:

17670 do 17671 j=1,nin                                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4803.72:

      if(ca(j,ilm).ne.0.0) me=me+1                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4804.72:

17671 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4805.72:

17672 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4806.72:

      if(me.gt.ne)goto 17312                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4807.72:

      if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 17312           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4808.72:

      if(dev(ilm).gt.devmax)goto 17312                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4809.72:

17311 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4810.72:

17312 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4811.72:

      g=t+uu                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4812.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4813.72:

      deallocate(t,w,wr,v,a,qy,xm,as,mm,ga,ixx)                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4814.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4815.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4816.72:

      subroutine spdeviance(no,ni,x,ix,jx,y,g,q,nlam,a0,a,flog,jerr)    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4817.72:

      real x(*),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)        
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4818.72:

      integer ix(*),jx(*)                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4820.72:

      if(minval(y) .ge. 0.0)goto 17691                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4821.72:

      jerr=8888                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4822.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4823.72:

17691 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4824.72:

      allocate(w(1:no),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4825.72:

      allocate(f(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4826.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4827.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4828.72:

      w=max(0.0,q)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4829.72:

      sw=sum(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4830.72:

      if(sw .gt. 0.0)goto 17711                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4831.72:

      jerr=9999                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4832.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4833.72:

17711 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4834.72:

      yb=dot_product(w,y)/sw                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4835.72:

      fmax=log(huge(y(1))*0.1)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4836.72:

17720 do 17721 lam=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4837.72:

      f=a0(lam)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4838.72:

17730 do 17731 j=1,ni                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4839.72:

      if(a(j,lam).eq.0.0)goto 17731                                     
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4840.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4841.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4842.72:

      f(jx(jb:je))=f(jx(jb:je))+a(j,lam)*x(jb:je)                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4843.72:

17731 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4844.72:

17732 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4845.72:

      f=f+g                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4846.72:

      s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4847.72:

      flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4848.72:

17721 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4849.72:

17722 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4850.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4851.72:

      deallocate(w,f)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4852.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4853.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4854.72:

      subroutine cspdeviance(no,x,ix,jx,y,g,q,nx,nlam,a0,ca,ia,nin,flog,
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4856.72:

      real x(*),y(no),g(no),q(no),ca(nx,nlam),a0(nlam),flog(nlam)       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4857.72:

      integer ix(*),jx(*),nin(nlam),ia(nx)                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4859.72:

      if(minval(y) .ge. 0.0)goto 17751                                  
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4860.72:

      jerr=8888                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4861.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4862.72:

17751 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4863.72:

      allocate(w(1:no),stat=jerr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4864.72:

      allocate(f(1:no),stat=ierr)                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4865.72:

      jerr=jerr+ierr                                                    
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4866.72:

      if(jerr.ne.0) return                                              
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4867.72:

      w=max(0.0,q)                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4868.72:

      sw=sum(w)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4869.72:

      if(sw .gt. 0.0)goto 17771                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4870.72:

      jerr=9999                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4871.72:

      go to 11790                                                       
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4872.72:

17771 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4873.72:

      yb=dot_product(w,y)/sw                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4874.72:

      fmax=log(huge(y(1))*0.1)                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4875.72:

17780 do 17781 lam=1,nlam                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4876.72:

      f=a0(lam)                                                         
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4877.72:

17790 do 17791 k=1,nin(lam)                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4878.72:

      j=ia(k)                                                           
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4879.72:

      jb=ix(j)                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4880.72:

      je=ix(j+1)-1                                                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4881.72:

      f(jx(jb:je))=f(jx(jb:je))+ca(k,lam)*x(jb:je)                      
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4882.72:

17791 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4883.72:

17792 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4884.72:

      f=f+g                                                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4885.72:

      s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))                
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4886.72:

      flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                             
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4887.72:

17781 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4888.72:

17782 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4889.72:

11790 continue                                                          
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4890.72:

      deallocate(w,f)                                                   
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4891.72:

      return                                                            
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:4892.72:

      end                                                               
                                                                        1
Warning: Line truncated at (1)
newGLMnet.f90:541.5:

10031 continue                                                          
     1
Warning: Label 10031 at (1) defined but not used
newGLMnet.f90:582.5:

10092 continue                                                          
     1
Warning: Label 10092 at (1) defined but not used
newGLMnet.f90:579.5:

10090 do 10091 l=1,nk                                                   
     1
Warning: Label 10090 at (1) defined but not used
newGLMnet.f90:585.5:

10082 continue                                                          
     1
Warning: Label 10082 at (1) defined but not used
newGLMnet.f90:576.5:

10080 do 10081 k=1,lmu                                                  
     1
Warning: Label 10080 at (1) defined but not used
newGLMnet.f90:1051.5:

10870 do 10871 i=2,no                                                   
     1
Warning: Label 10870 at (1) defined but not used
newGLMnet.f90:1058.5:

10862 continue                                                          
     1
Warning: Label 10862 at (1) defined but not used
newGLMnet.f90:1048.5:

10860 do 10861 j=1,ni                                                   
     1
Warning: Label 10860 at (1) defined but not used
newGLMnet.f90:625.5:

10152 continue                                                          
     1
Warning: Label 10152 at (1) defined but not used
newGLMnet.f90:622.5:

10150 do 10151 j=1,ni                                                   
     1
Warning: Label 10150 at (1) defined but not used
newGLMnet.f90:613.5:

10142 continue                                                          
     1
Warning: Label 10142 at (1) defined but not used
newGLMnet.f90:609.5:

10140 do 10141 j=1,ni                                                   
     1
Warning: Label 10140 at (1) defined but not used
newGLMnet.f90:616.5:

10111 continue                                                          
     1
Warning: Label 10111 at (1) defined but not used
newGLMnet.f90:604.5:

10102 continue                                                          
     1
Warning: Label 10102 at (1) defined but not used
newGLMnet.f90:597.5:

10100 do 10101 j=1,ni                                                   
     1
Warning: Label 10100 at (1) defined but not used
newGLMnet.f90:787.5:

10462 continue                                                          
     1
Warning: Label 10462 at (1) defined but not used
newGLMnet.f90:784.5:

10460 do 10461 j=1,nin                                                  
     1
Warning: Label 10460 at (1) defined but not used
newGLMnet.f90:768.5:

10432 continue                                                          
     1
Warning: Label 10432 at (1) defined but not used
newGLMnet.f90:764.5:

10430 do 10431 j=1,ni                                                   
     1
Warning: Label 10430 at (1) defined but not used
newGLMnet.f90:753.5:

10402 continue                                                          
     1
Warning: Label 10402 at (1) defined but not used
newGLMnet.f90:750.5:

10400 do 10401 j=1,nin                                                  
     1
Warning: Label 10400 at (1) defined but not used
newGLMnet.f90:755.5:

10392 continue                                                          
     1
Warning: Label 10392 at (1) defined but not used
newGLMnet.f90:739.5:

10390 do 10391 l=1,nin                                                  
     1
Warning: Label 10390 at (1) defined but not used
newGLMnet.f90:735.5:

10380 continue                                                          
     1
Warning: Label 10380 at (1) defined but not used
newGLMnet.f90:723.5:

10352 continue                                                          
     1
Warning: Label 10352 at (1) defined but not used
newGLMnet.f90:720.5:

10350 do 10351 j=1,ni                                                   
     1
Warning: Label 10350 at (1) defined but not used
newGLMnet.f90:713.5:

10302 continue                                                          
     1
Warning: Label 10302 at (1) defined but not used
newGLMnet.f90:701.5:

10300 do 10301 j=1,ni                                                   
     1
Warning: Label 10300 at (1) defined but not used
newGLMnet.f90:690.5:

10270 do 10271 k=1,ni                                                   
     1
Warning: Label 10270 at (1) defined but not used
newGLMnet.f90:685.5:

10250 continue                                                          
     1
Warning: Label 10250 at (1) defined but not used
newGLMnet.f90:677.5:

10242 continue                                                          
     1
Warning: Label 10242 at (1) defined but not used
newGLMnet.f90:672.5:

10240 do 10241 j=1,ni                                                   
     1
Warning: Label 10240 at (1) defined but not used
newGLMnet.f90:660.5:

10180 do 10181 m=1,nlam                                                 
     1
Warning: Label 10180 at (1) defined but not used
newGLMnet.f90:831.5:

10502 continue                                                          
     1
Warning: Label 10502 at (1) defined but not used
newGLMnet.f90:828.5:

10500 do 10501 l=1,nk                                                   
     1
Warning: Label 10500 at (1) defined but not used
newGLMnet.f90:834.5:

10492 continue                                                          
     1
Warning: Label 10492 at (1) defined but not used
newGLMnet.f90:825.5:

10490 do 10491 k=1,lmu                                                  
     1
Warning: Label 10490 at (1) defined but not used
newGLMnet.f90:862.5:

10552 continue                                                          
     1
Warning: Label 10552 at (1) defined but not used
newGLMnet.f90:858.5:

10550 do 10551 j=1,ni                                                   
     1
Warning: Label 10550 at (1) defined but not used
newGLMnet.f90:865.5:

10521 continue                                                          
     1
Warning: Label 10521 at (1) defined but not used
newGLMnet.f90:853.5:

10512 continue                                                          
     1
Warning: Label 10512 at (1) defined but not used
newGLMnet.f90:846.5:

10510 do 10511 j=1,ni                                                   
     1
Warning: Label 10510 at (1) defined but not used
newGLMnet.f90:1036.5:

10852 continue                                                          
     1
Warning: Label 10852 at (1) defined but not used
newGLMnet.f90:1033.5:

10850 do 10851 j=1,nin                                                  
     1
Warning: Label 10850 at (1) defined but not used
newGLMnet.f90:1010.5:

10802 continue                                                          
     1
Warning: Label 10802 at (1) defined but not used
newGLMnet.f90:996.5:

10800 do 10801 l=1,nin                                                  
     1
Warning: Label 10800 at (1) defined but not used
newGLMnet.f90:992.5:

10790 continue                                                          
     1
Warning: Label 10790 at (1) defined but not used
newGLMnet.f90:982.5:

10742 continue                                                          
     1
Warning: Label 10742 at (1) defined but not used
newGLMnet.f90:973.5:

10740 do 10741 k=1,ni                                                   
     1
Warning: Label 10740 at (1) defined but not used
newGLMnet.f90:949.5:

10690 do 10691 k=1,ni                                                   
     1
Warning: Label 10690 at (1) defined but not used
newGLMnet.f90:943.5:

10670 continue                                                          
     1
Warning: Label 10670 at (1) defined but not used
newGLMnet.f90:942.5:

10662 continue                                                          
     1
Warning: Label 10662 at (1) defined but not used
newGLMnet.f90:937.5:

10660 do 10661 k=1,ni                                                   
     1
Warning: Label 10660 at (1) defined but not used
newGLMnet.f90:927.5:

10652 continue                                                          
     1
Warning: Label 10652 at (1) defined but not used
newGLMnet.f90:923.5:

10650 do 10651 j=1,ni                                                   
     1
Warning: Label 10650 at (1) defined but not used
newGLMnet.f90:910.5:

10590 do 10591 m=1,nlam                                                 
     1
Warning: Label 10590 at (1) defined but not used
newGLMnet.f90:909.5:

10582 continue                                                          
     1
Warning: Label 10582 at (1) defined but not used
newGLMnet.f90:905.5:

10580 do 10581 j=1,ni                                                   
     1
Warning: Label 10580 at (1) defined but not used
newGLMnet.f90:1076.5:

10882 continue                                                          
     1
Warning: Label 10882 at (1) defined but not used
newGLMnet.f90:1073.5:

10880 do 10881 i=1,n                                                    
     1
Warning: Label 10880 at (1) defined but not used
newGLMnet.f90:1101.5:

10911 continue                                                          
     1
Warning: Label 10911 at (1) defined but not used
newGLMnet.f90:1142.5:

10972 continue                                                          
     1
Warning: Label 10972 at (1) defined but not used
newGLMnet.f90:1139.5:

10970 do 10971 l=1,nk                                                   
     1
Warning: Label 10970 at (1) defined but not used
newGLMnet.f90:1145.5:

10962 continue                                                          
     1
Warning: Label 10962 at (1) defined but not used
newGLMnet.f90:1136.5:

10960 do 10961 k=1,lmu                                                  
     1
Warning: Label 10960 at (1) defined but not used
newGLMnet.f90:1622.5:

11750 do 11751 i=jb+1,je                                                
     1
Warning: Label 11750 at (1) defined but not used
newGLMnet.f90:1613.5:

11730 do 11731 i=jb,je                                                  
     1
Warning: Label 11730 at (1) defined but not used
newGLMnet.f90:1629.5:

11711 continue                                                          
     1
Warning: Label 11711 at (1) defined but not used
newGLMnet.f90:1631.5:

11702 continue                                                          
     1
Warning: Label 11702 at (1) defined but not used
newGLMnet.f90:1606.5:

11700 do 11701 j=1,ni                                                   
     1
Warning: Label 11700 at (1) defined but not used
newGLMnet.f90:1181.5:

11022 continue                                                          
     1
Warning: Label 11022 at (1) defined but not used
newGLMnet.f90:1175.5:

11020 do 11021 j=1,ni                                                   
     1
Warning: Label 11020 at (1) defined but not used
newGLMnet.f90:1169.5:

10991 continue                                                          
     1
Warning: Label 10991 at (1) defined but not used
newGLMnet.f90:1162.5:

10982 continue                                                          
     1
Warning: Label 10982 at (1) defined but not used
newGLMnet.f90:1154.5:

10980 do 10981 j=1,ni                                                   
     1
Warning: Label 10980 at (1) defined but not used
newGLMnet.f90:1342.5:

11322 continue                                                          
     1
Warning: Label 11322 at (1) defined but not used
newGLMnet.f90:1339.5:

11320 do 11321 j=1,nin                                                  
     1
Warning: Label 11320 at (1) defined but not used
newGLMnet.f90:1323.5:

11292 continue                                                          
     1
Warning: Label 11292 at (1) defined but not used
newGLMnet.f90:1319.5:

11290 do 11291 j=1,ni                                                   
     1
Warning: Label 11290 at (1) defined but not used
newGLMnet.f90:1308.5:

11262 continue                                                          
     1
Warning: Label 11262 at (1) defined but not used
newGLMnet.f90:1305.5:

11260 do 11261 j=1,nin                                                  
     1
Warning: Label 11260 at (1) defined but not used
newGLMnet.f90:1310.5:

11252 continue                                                          
     1
Warning: Label 11252 at (1) defined but not used
newGLMnet.f90:1294.5:

11250 do 11251 l=1,nin                                                  
     1
Warning: Label 11250 at (1) defined but not used
newGLMnet.f90:1290.5:

11240 continue                                                          
     1
Warning: Label 11240 at (1) defined but not used
newGLMnet.f90:1278.5:

11212 continue                                                          
     1
Warning: Label 11212 at (1) defined but not used
newGLMnet.f90:1275.5:

11210 do 11211 j=1,ni                                                   
     1
Warning: Label 11210 at (1) defined but not used
newGLMnet.f90:1268.5:

11162 continue                                                          
     1
Warning: Label 11162 at (1) defined but not used
newGLMnet.f90:1256.5:

11160 do 11161 j=1,ni                                                   
     1
Warning: Label 11160 at (1) defined but not used
newGLMnet.f90:1245.5:

11130 do 11131 k=1,ni                                                   
     1
Warning: Label 11130 at (1) defined but not used
newGLMnet.f90:1240.5:

11120 continue                                                          
     1
Warning: Label 11120 at (1) defined but not used
newGLMnet.f90:1232.5:

11112 continue                                                          
     1
Warning: Label 11112 at (1) defined but not used
newGLMnet.f90:1227.5:

11110 do 11111 j=1,ni                                                   
     1
Warning: Label 11110 at (1) defined but not used
newGLMnet.f90:1215.5:

11050 do 11051 m=1,nlam                                                 
     1
Warning: Label 11050 at (1) defined but not used
newGLMnet.f90:1669.5:

11810 continue                                                          
     1
Warning: Label 11810 at (1) defined but not used
newGLMnet.f90:1662.5:

11780 continue                                                          
     1
Warning: Label 11780 at (1) defined but not used
newGLMnet.f90:1660.5:

11770 continue                                                          
     1
Warning: Label 11770 at (1) defined but not used
newGLMnet.f90:1386.5:

11362 continue                                                          
     1
Warning: Label 11362 at (1) defined but not used
newGLMnet.f90:1383.5:

11360 do 11361 l=1,nk                                                   
     1
Warning: Label 11360 at (1) defined but not used
newGLMnet.f90:1389.5:

11352 continue                                                          
     1
Warning: Label 11352 at (1) defined but not used
newGLMnet.f90:1380.5:

11350 do 11351 k=1,lmu                                                  
     1
Warning: Label 11350 at (1) defined but not used
newGLMnet.f90:1413.5:

11381 continue                                                          
     1
Warning: Label 11381 at (1) defined but not used
newGLMnet.f90:1406.5:

11372 continue                                                          
     1
Warning: Label 11372 at (1) defined but not used
newGLMnet.f90:1398.5:

11370 do 11371 j=1,ni                                                   
     1
Warning: Label 11370 at (1) defined but not used
newGLMnet.f90:1594.5:

11692 continue                                                          
     1
Warning: Label 11692 at (1) defined but not used
newGLMnet.f90:1591.5:

11690 do 11691 j=1,nin                                                  
     1
Warning: Label 11690 at (1) defined but not used
newGLMnet.f90:1568.5:

11642 continue                                                          
     1
Warning: Label 11642 at (1) defined but not used
newGLMnet.f90:1551.5:

11640 do 11641 l=1,nin                                                  
     1
Warning: Label 11640 at (1) defined but not used
newGLMnet.f90:1547.5:

11630 continue                                                          
     1
Warning: Label 11630 at (1) defined but not used
newGLMnet.f90:1537.5:

11582 continue                                                          
     1
Warning: Label 11582 at (1) defined but not used
newGLMnet.f90:1526.5:

11580 do 11581 j=1,ni                                                   
     1
Warning: Label 11580 at (1) defined but not used
newGLMnet.f90:1499.5:

11530 do 11531 k=1,ni                                                   
     1
Warning: Label 11530 at (1) defined but not used
newGLMnet.f90:1493.5:

11520 continue                                                          
     1
Warning: Label 11520 at (1) defined but not used
newGLMnet.f90:1492.5:

11512 continue                                                          
     1
Warning: Label 11512 at (1) defined but not used
newGLMnet.f90:1487.5:

11510 do 11511 k=1,ni                                                   
     1
Warning: Label 11510 at (1) defined but not used
newGLMnet.f90:1477.5:

11502 continue                                                          
     1
Warning: Label 11502 at (1) defined but not used
newGLMnet.f90:1473.5:

11500 do 11501 j=1,ni                                                   
     1
Warning: Label 11500 at (1) defined but not used
newGLMnet.f90:1460.5:

11440 do 11441 m=1,nlam                                                 
     1
Warning: Label 11440 at (1) defined but not used
newGLMnet.f90:1459.5:

11432 continue                                                          
     1
Warning: Label 11432 at (1) defined but not used
newGLMnet.f90:1453.5:

11430 do 11431 j=1,ni                                                   
     1
Warning: Label 11430 at (1) defined but not used
newGLMnet.f90:1644.5:

11762 continue                                                          
     1
Warning: Label 11762 at (1) defined but not used
newGLMnet.f90:1638.5:

11760 do 11761 j=1,nin                                                  
     1
Warning: Label 11760 at (1) defined but not used
newGLMnet.f90:1746.5:

11962 continue                                                          
     1
Warning: Label 11962 at (1) defined but not used
newGLMnet.f90:1743.5:

11960 do 11961 l=1,nk                                                   
     1
Warning: Label 11960 at (1) defined but not used
newGLMnet.f90:1750.5:

11932 continue                                                          
     1
Warning: Label 11932 at (1) defined but not used
newGLMnet.f90:1741.5:

11930 do 11931 ic=1,nc                                                  
     1
Warning: Label 11930 at (1) defined but not used
newGLMnet.f90:1752.5:

11922 continue                                                          
     1
Warning: Label 11922 at (1) defined but not used
newGLMnet.f90:1739.5:

11920 do 11921 k=1,lmu                                                  
     1
Warning: Label 11920 at (1) defined but not used
newGLMnet.f90:1736.5:

11891 continue                                                          
     1
Warning: Label 11891 at (1) defined but not used
newGLMnet.f90:1724.5:

11882 continue                                                          
     1
Warning: Label 11882 at (1) defined but not used
newGLMnet.f90:1720.5:

11880 do 11881 i=1,no                                                   
     1
Warning: Label 11880 at (1) defined but not used
newGLMnet.f90:1769.5:

11972 continue                                                          
     1
Warning: Label 11972 at (1) defined but not used
newGLMnet.f90:1760.5:

11970 do 11971 j=1,ni                                                   
     1
Warning: Label 11970 at (1) defined but not used
newGLMnet.f90:2055.5:

12642 continue                                                          
     1
Warning: Label 12642 at (1) defined but not used
newGLMnet.f90:2052.5:

12640 do 12641 j=1,nin                                                  
     1
Warning: Label 12640 at (1) defined but not used
newGLMnet.f90:2030.5:

12592 continue                                                          
     1
Warning: Label 12592 at (1) defined but not used
newGLMnet.f90:2021.5:

12590 do 12591 k=1,ni                                                   
     1
Warning: Label 12590 at (1) defined but not used
newGLMnet.f90:2013.5:

12560 do 12561 j=1,nin                                                  
     1
Warning: Label 12560 at (1) defined but not used
newGLMnet.f90:2006.5:

12492 continue                                                          
     1
Warning: Label 12492 at (1) defined but not used
newGLMnet.f90:1992.5:

12490 do 12491 i=1,no                                                   
     1
Warning: Label 12490 at (1) defined but not used
newGLMnet.f90:1969.5:

12421 continue                                                          
     1
Warning: Label 12421 at (1) defined but not used
newGLMnet.f90:1975.5:

12412 continue                                                          
     1
Warning: Label 12412 at (1) defined but not used
newGLMnet.f90:1957.5:

12410 do 12411 l=1,nin                                                  
     1
Warning: Label 12410 at (1) defined but not used
newGLMnet.f90:1953.5:

12400 continue                                                          
     1
Warning: Label 12400 at (1) defined but not used
newGLMnet.f90:1928.5:

12311 continue                                                          
     1
Warning: Label 12311 at (1) defined but not used
newGLMnet.f90:1916.5:

12300 do 12301 k=1,ni                                                   
     1
Warning: Label 12300 at (1) defined but not used
newGLMnet.f90:1912.5:

12290 continue                                                          
     1
Warning: Label 12290 at (1) defined but not used
newGLMnet.f90:1910.5:

12282 continue                                                          
     1
Warning: Label 12282 at (1) defined but not used
newGLMnet.f90:1907.5:

12280 do 12281 j=1,ni                                                   
     1
Warning: Label 12280 at (1) defined but not used
newGLMnet.f90:1902.5:

12250 continue                                                          
     1
Warning: Label 12250 at (1) defined but not used
newGLMnet.f90:1900.5:

12242 continue                                                          
     1
Warning: Label 12242 at (1) defined but not used
newGLMnet.f90:1895.5:

12240 do 12241 k=1,ni                                                   
     1
Warning: Label 12240 at (1) defined but not used
newGLMnet.f90:1887.5:

12232 continue                                                          
     1
Warning: Label 12232 at (1) defined but not used
newGLMnet.f90:1883.5:

12230 do 12231 j=1,ni                                                   
     1
Warning: Label 12230 at (1) defined but not used
newGLMnet.f90:1870.5:

12170 do 12171 ilm=1,nlam                                               
     1
Warning: Label 12170 at (1) defined but not used
newGLMnet.f90:1869.5:

12162 continue                                                          
     1
Warning: Label 12162 at (1) defined but not used
newGLMnet.f90:1865.5:

12160 do 12161 j=1,ni                                                   
     1
Warning: Label 12160 at (1) defined but not used
newGLMnet.f90:1852.5:

12132 continue                                                          
     1
Warning: Label 12132 at (1) defined but not used
newGLMnet.f90:1848.5:

12130 do 12131 i=1,no                                                   
     1
Warning: Label 12130 at (1) defined but not used
newGLMnet.f90:1843.5:

12122 continue                                                          
     1
Warning: Label 12122 at (1) defined but not used
newGLMnet.f90:1840.5:

12120 do 12121 j=1,ni                                                   
     1
Warning: Label 12120 at (1) defined but not used
newGLMnet.f90:1845.5:

12091 continue                                                          
     1
Warning: Label 12091 at (1) defined but not used
newGLMnet.f90:1834.5:

12041 continue                                                          
     1
Warning: Label 12041 at (1) defined but not used
newGLMnet.f90:4418.5:

17032 continue                                                          
     1
Warning: Label 17032 at (1) defined but not used
newGLMnet.f90:4412.5:

17030 do 17031 i=1,n                                                    
     1
Warning: Label 17030 at (1) defined but not used
newGLMnet.f90:2091.5:

12660 continue                                                          
     1
Warning: Label 12660 at (1) defined but not used
newGLMnet.f90:2073.5:

12652 continue                                                          
     1
Warning: Label 12652 at (1) defined but not used
newGLMnet.f90:2069.5:

12650 do 12651 i=1,n                                                    
     1
Warning: Label 12650 at (1) defined but not used
newGLMnet.f90:2497.5:

13542 continue                                                          
     1
Warning: Label 13542 at (1) defined but not used
newGLMnet.f90:2494.5:

13540 do 13541 i=1,no                                                   
     1
Warning: Label 13540 at (1) defined but not used
newGLMnet.f90:2478.5:

13532 continue                                                          
     1
Warning: Label 13532 at (1) defined but not used
newGLMnet.f90:2474.5:

13530 do 13531 i=1,no                                                   
     1
Warning: Label 13530 at (1) defined but not used
newGLMnet.f90:2480.5:

13522 continue                                                          
     1
Warning: Label 13522 at (1) defined but not used
newGLMnet.f90:2471.5:

13520 do 13521 ic=1,nc                                                  
     1
Warning: Label 13520 at (1) defined but not used
newGLMnet.f90:2460.5:

13472 continue                                                          
     1
Warning: Label 13472 at (1) defined but not used
newGLMnet.f90:2452.5:

13470 do 13471 k=1,ni                                                   
     1
Warning: Label 13470 at (1) defined but not used
newGLMnet.f90:2449.5:

13462 continue                                                          
     1
Warning: Label 13462 at (1) defined but not used
newGLMnet.f90:2444.5:

13460 do 13461 k=1,ni                                                   
     1
Warning: Label 13460 at (1) defined but not used
newGLMnet.f90:2451.5:

13452 continue                                                          
     1
Warning: Label 13452 at (1) defined but not used
newGLMnet.f90:2442.5:

13450 do 13451 ic=1,nc                                                  
     1
Warning: Label 13450 at (1) defined but not used
newGLMnet.f90:2441.5:

13442 continue                                                          
     1
Warning: Label 13442 at (1) defined but not used
newGLMnet.f90:2436.5:

13440 do 13441 k=1,ni                                                   
     1
Warning: Label 13440 at (1) defined but not used
newGLMnet.f90:2432.5:

13412 continue                                                          
     1
Warning: Label 13412 at (1) defined but not used
newGLMnet.f90:2429.5:

13410 do 13411 ic=1,nc                                                  
     1
Warning: Label 13410 at (1) defined but not used
newGLMnet.f90:2422.5:

13381 continue                                                          
     1
Warning: Label 13381 at (1) defined but not used
newGLMnet.f90:2426.5:

13372 continue                                                          
     1
Warning: Label 13372 at (1) defined but not used
newGLMnet.f90:2414.5:

13370 do 13371 j=1,nin                                                  
     1
Warning: Label 13370 at (1) defined but not used
newGLMnet.f90:2408.5:

13362 continue                                                          
     1
Warning: Label 13362 at (1) defined but not used
newGLMnet.f90:2400.5:

13360 do 13361 i=1,no                                                   
     1
Warning: Label 13360 at (1) defined but not used
newGLMnet.f90:2391.5:

13330 do 13331 j=1,nin                                                  
     1
Warning: Label 13330 at (1) defined but not used
newGLMnet.f90:2366.5:

13241 continue                                                          
     1
Warning: Label 13241 at (1) defined but not used
newGLMnet.f90:2372.5:

13232 continue                                                          
     1
Warning: Label 13232 at (1) defined but not used
newGLMnet.f90:2354.5:

13230 do 13231 l=1,nin                                                  
     1
Warning: Label 13230 at (1) defined but not used
newGLMnet.f90:2350.5:

13220 continue                                                          
     1
Warning: Label 13220 at (1) defined but not used
newGLMnet.f90:2322.5:

13111 continue                                                          
     1
Warning: Label 13111 at (1) defined but not used
newGLMnet.f90:2310.5:

13100 do 13101 k=1,ni                                                   
     1
Warning: Label 13100 at (1) defined but not used
newGLMnet.f90:2306.5:

13090 continue                                                          
     1
Warning: Label 13090 at (1) defined but not used
newGLMnet.f90:2304.5:

13082 continue                                                          
     1
Warning: Label 13082 at (1) defined but not used
newGLMnet.f90:2301.5:

13080 do 13081 j=1,ni                                                   
     1
Warning: Label 13080 at (1) defined but not used
newGLMnet.f90:2297.5:

13012 continue                                                          
     1
Warning: Label 13012 at (1) defined but not used
newGLMnet.f90:2280.5:

13010 do 13011 i=1,no                                                   
     1
Warning: Label 13010 at (1) defined but not used
newGLMnet.f90:2276.5:

13000 do 13001 ic=1,nc                                                  
     1
Warning: Label 13000 at (1) defined but not used
newGLMnet.f90:2271.5:

12990 continue                                                          
     1
Warning: Label 12990 at (1) defined but not used
newGLMnet.f90:2269.5:

12982 continue                                                          
     1
Warning: Label 12982 at (1) defined but not used
newGLMnet.f90:2264.5:

12980 do 12981 k=1,ni                                                   
     1
Warning: Label 12980 at (1) defined but not used
newGLMnet.f90:2256.5:

12972 continue                                                          
     1
Warning: Label 12972 at (1) defined but not used
newGLMnet.f90:2252.5:

12970 do 12971 j=1,ni                                                   
     1
Warning: Label 12970 at (1) defined but not used
newGLMnet.f90:2239.5:

12910 do 12911 ilm=1,nlam                                               
     1
Warning: Label 12910 at (1) defined but not used
newGLMnet.f90:2236.5:

12902 continue                                                          
     1
Warning: Label 12902 at (1) defined but not used
newGLMnet.f90:2233.5:

12900 do 12901 j=1,ni                                                   
     1
Warning: Label 12900 at (1) defined but not used
newGLMnet.f90:2238.5:

12892 continue                                                          
     1
Warning: Label 12892 at (1) defined but not used
newGLMnet.f90:2231.5:

12890 do 12891 ic=1,nc                                                  
     1
Warning: Label 12890 at (1) defined but not used
newGLMnet.f90:2215.5:

12862 continue                                                          
     1
Warning: Label 12862 at (1) defined but not used
newGLMnet.f90:2212.5:

12860 do 12861 j=1,ni                                                   
     1
Warning: Label 12860 at (1) defined but not used
newGLMnet.f90:2217.5:

12831 continue                                                          
     1
Warning: Label 12831 at (1) defined but not used
newGLMnet.f90:2203.5:

12802 continue                                                          
     1
Warning: Label 12802 at (1) defined but not used
newGLMnet.f90:2200.5:

12800 do 12801 i=1,no                                                   
     1
Warning: Label 12800 at (1) defined but not used
newGLMnet.f90:2205.5:

12792 continue                                                          
     1
Warning: Label 12792 at (1) defined but not used
newGLMnet.f90:2199.5:

12790 do 12791 ic=1,nc                                                  
     1
Warning: Label 12790 at (1) defined but not used
newGLMnet.f90:2196.5:

12782 continue                                                          
     1
Warning: Label 12782 at (1) defined but not used
newGLMnet.f90:2193.5:

12780 do 12781 ic=1,nc                                                  
     1
Warning: Label 12780 at (1) defined but not used
newGLMnet.f90:2191.5:

12772 continue                                                          
     1
Warning: Label 12772 at (1) defined but not used
newGLMnet.f90:2185.5:

12770 do 12771 ic=1,nc                                                  
     1
Warning: Label 12770 at (1) defined but not used
newGLMnet.f90:2180.5:

12762 continue                                                          
     1
Warning: Label 12762 at (1) defined but not used
newGLMnet.f90:2177.5:

12760 do 12761 i=1,no                                                   
     1
Warning: Label 12760 at (1) defined but not used
newGLMnet.f90:2174.5:

12742 continue                                                          
     1
Warning: Label 12742 at (1) defined but not used
newGLMnet.f90:2170.5:

12740 do 12741 ic=1,nc                                                  
     1
Warning: Label 12740 at (1) defined but not used
newGLMnet.f90:2198.5:

12721 continue                                                          
     1
Warning: Label 12721 at (1) defined but not used
newGLMnet.f90:2164.5:

12672 continue                                                          
     1
Warning: Label 12672 at (1) defined but not used
newGLMnet.f90:2150.5:

12670 do 12671 ic=1,nc                                                  
     1
Warning: Label 12670 at (1) defined but not used
newGLMnet.f90:2537.5:

13592 continue                                                          
     1
Warning: Label 13592 at (1) defined but not used
newGLMnet.f90:2532.5:

13590 do 13591 i=1,n                                                    
     1
Warning: Label 13590 at (1) defined but not used
newGLMnet.f90:2527.5:

13582 continue                                                          
     1
Warning: Label 13582 at (1) defined but not used
newGLMnet.f90:2522.5:

13580 do 13581 i=1,n                                                    
     1
Warning: Label 13580 at (1) defined but not used
newGLMnet.f90:2539.5:

13572 continue                                                          
     1
Warning: Label 13572 at (1) defined but not used
newGLMnet.f90:2519.5:

13570 do 13571 k=1,kk                                                   
     1
Warning: Label 13570 at (1) defined but not used
newGLMnet.f90:2516.5:

13560 continue                                                          
     1
Warning: Label 13560 at (1) defined but not used
newGLMnet.f90:2515.5:

13552 continue                                                          
     1
Warning: Label 13552 at (1) defined but not used
newGLMnet.f90:2512.5:

13550 do 13551 i=1,n                                                    
     1
Warning: Label 13550 at (1) defined but not used
newGLMnet.f90:2621.5:

13772 continue                                                          
     1
Warning: Label 13772 at (1) defined but not used
newGLMnet.f90:2611.5:

13770 do 13771 k=k1+1,k2                                                
     1
Warning: Label 13770 at (1) defined but not used
newGLMnet.f90:2593.5:

13720 do 13721 k=k1,k2-1                                                
     1
Warning: Label 13720 at (1) defined but not used
newGLMnet.f90:2585.5:

13710 continue                                                          
     1
Warning: Label 13710 at (1) defined but not used
newGLMnet.f90:2579.5:

13700 continue                                                          
     1
Warning: Label 13700 at (1) defined but not used
newGLMnet.f90:2571.5:

13651 continue                                                          
     1
Warning: Label 13651 at (1) defined but not used
newGLMnet.f90:2559.5:

13622 continue                                                          
     1
Warning: Label 13622 at (1) defined but not used
newGLMnet.f90:2556.5:

13620 do 13621 i=1,n                                                    
     1
Warning: Label 13620 at (1) defined but not used
newGLMnet.f90:2637.5:

13812 continue                                                          
     1
Warning: Label 13812 at (1) defined but not used
newGLMnet.f90:2630.5:

13810 do 13811 j=1,nin                                                  
     1
Warning: Label 13810 at (1) defined but not used
newGLMnet.f90:2639.5:

13802 continue                                                          
     1
Warning: Label 13802 at (1) defined but not used
newGLMnet.f90:2629.5:

13800 do 13801 ic=1,nc                                                  
     1
Warning: Label 13800 at (1) defined but not used
newGLMnet.f90:2649.5:

13822 continue                                                          
     1
Warning: Label 13822 at (1) defined but not used
newGLMnet.f90:2646.5:

13820 do 13821 ic=1,nc                                                  
     1
Warning: Label 13820 at (1) defined but not used
newGLMnet.f90:2661.5:

13842 continue                                                          
     1
Warning: Label 13842 at (1) defined but not used
newGLMnet.f90:2656.5:

13840 do 13841 ic=1,nc                                                  
     1
Warning: Label 13840 at (1) defined but not used
newGLMnet.f90:2663.5:

13832 continue                                                          
     1
Warning: Label 13832 at (1) defined but not used
newGLMnet.f90:2655.5:

13830 do 13831 i=1,nt                                                   
     1
Warning: Label 13830 at (1) defined but not used
newGLMnet.f90:2724.5:

13972 continue                                                          
     1
Warning: Label 13972 at (1) defined but not used
newGLMnet.f90:2721.5:

13970 do 13971 l=1,nk                                                   
     1
Warning: Label 13970 at (1) defined but not used
newGLMnet.f90:2728.5:

13942 continue                                                          
     1
Warning: Label 13942 at (1) defined but not used
newGLMnet.f90:2719.5:

13940 do 13941 ic=1,nc                                                  
     1
Warning: Label 13940 at (1) defined but not used
newGLMnet.f90:2730.5:

13932 continue                                                          
     1
Warning: Label 13932 at (1) defined but not used
newGLMnet.f90:2717.5:

13930 do 13931 k=1,lmu                                                  
     1
Warning: Label 13930 at (1) defined but not used
newGLMnet.f90:2714.5:

13901 continue                                                          
     1
Warning: Label 13901 at (1) defined but not used
newGLMnet.f90:2700.5:

13892 continue                                                          
     1
Warning: Label 13892 at (1) defined but not used
newGLMnet.f90:2696.5:

13890 do 13891 i=1,no                                                   
     1
Warning: Label 13890 at (1) defined but not used
newGLMnet.f90:2745.5:

13982 continue                                                          
     1
Warning: Label 13982 at (1) defined but not used
newGLMnet.f90:2737.5:

13980 do 13981 j=1,ni                                                   
     1
Warning: Label 13980 at (1) defined but not used
newGLMnet.f90:3090.5:

14642 continue                                                          
     1
Warning: Label 14642 at (1) defined but not used
newGLMnet.f90:3087.5:

14640 do 14641 j=1,nin                                                  
     1
Warning: Label 14640 at (1) defined but not used
newGLMnet.f90:3066.5:

14592 continue                                                          
     1
Warning: Label 14592 at (1) defined but not used
newGLMnet.f90:3052.5:

14590 do 14591 j=1,ni                                                   
     1
Warning: Label 14590 at (1) defined but not used
newGLMnet.f90:3044.5:

14560 do 14561 j=1,nin                                                  
     1
Warning: Label 14560 at (1) defined but not used
newGLMnet.f90:3035.5:

14492 continue                                                          
     1
Warning: Label 14492 at (1) defined but not used
newGLMnet.f90:3022.5:

14490 do 14491 i=1,no                                                   
     1
Warning: Label 14490 at (1) defined but not used
newGLMnet.f90:3020.5:

14482 continue                                                          
     1
Warning: Label 14482 at (1) defined but not used
newGLMnet.f90:3013.5:

14480 do 14481 j=1,nin                                                  
     1
Warning: Label 14480 at (1) defined but not used
newGLMnet.f90:2985.5:

14411 continue                                                          
     1
Warning: Label 14411 at (1) defined but not used
newGLMnet.f90:2993.5:

14402 continue                                                          
     1
Warning: Label 14402 at (1) defined but not used
newGLMnet.f90:2968.5:

14400 do 14401 l=1,nin                                                  
     1
Warning: Label 14400 at (1) defined but not used
newGLMnet.f90:2964.5:

14390 continue                                                          
     1
Warning: Label 14390 at (1) defined but not used
newGLMnet.f90:2934.5:

14301 continue                                                          
     1
Warning: Label 14301 at (1) defined but not used
newGLMnet.f90:2917.5:

14290 do 14291 k=1,ni                                                   
     1
Warning: Label 14290 at (1) defined but not used
newGLMnet.f90:2913.5:

14280 continue                                                          
     1
Warning: Label 14280 at (1) defined but not used
newGLMnet.f90:2912.5:

14252 continue                                                          
     1
Warning: Label 14252 at (1) defined but not used
newGLMnet.f90:2900.5:

14250 do 14251 j=1,ni                                                   
     1
Warning: Label 14250 at (1) defined but not used
newGLMnet.f90:2896.5:

14240 continue                                                          
     1
Warning: Label 14240 at (1) defined but not used
newGLMnet.f90:2894.5:

14232 continue                                                          
     1
Warning: Label 14232 at (1) defined but not used
newGLMnet.f90:2889.5:

14230 do 14231 k=1,ni                                                   
     1
Warning: Label 14230 at (1) defined but not used
newGLMnet.f90:2881.5:

14222 continue                                                          
     1
Warning: Label 14222 at (1) defined but not used
newGLMnet.f90:2877.5:

14220 do 14221 j=1,ni                                                   
     1
Warning: Label 14220 at (1) defined but not used
newGLMnet.f90:2864.5:

14160 do 14161 ilm=1,nlam                                               
     1
Warning: Label 14160 at (1) defined but not used
newGLMnet.f90:2863.5:

14152 continue                                                          
     1
Warning: Label 14152 at (1) defined but not used
newGLMnet.f90:2854.5:

14150 do 14151 j=1,ni                                                   
     1
Warning: Label 14150 at (1) defined but not used
newGLMnet.f90:2837.5:

14122 continue                                                          
     1
Warning: Label 14122 at (1) defined but not used
newGLMnet.f90:2833.5:

14120 do 14121 i=1,no                                                   
     1
Warning: Label 14120 at (1) defined but not used
newGLMnet.f90:2827.5:

14112 continue                                                          
     1
Warning: Label 14112 at (1) defined but not used
newGLMnet.f90:2821.5:

14110 do 14111 j=1,ni                                                   
     1
Warning: Label 14110 at (1) defined but not used
newGLMnet.f90:2829.5:

14081 continue                                                          
     1
Warning: Label 14081 at (1) defined but not used
newGLMnet.f90:2815.5:

14031 continue                                                          
     1
Warning: Label 14031 at (1) defined but not used
newGLMnet.f90:3551.5:

15522 continue                                                          
     1
Warning: Label 15522 at (1) defined but not used
newGLMnet.f90:3548.5:

15520 do 15521 i=1,no                                                   
     1
Warning: Label 15520 at (1) defined but not used
newGLMnet.f90:3532.5:

15512 continue                                                          
     1
Warning: Label 15512 at (1) defined but not used
newGLMnet.f90:3528.5:

15510 do 15511 i=1,no                                                   
     1
Warning: Label 15510 at (1) defined but not used
newGLMnet.f90:3534.5:

15502 continue                                                          
     1
Warning: Label 15502 at (1) defined but not used
newGLMnet.f90:3525.5:

15500 do 15501 ic=1,nc                                                  
     1
Warning: Label 15500 at (1) defined but not used
newGLMnet.f90:3514.5:

15452 continue                                                          
     1
Warning: Label 15452 at (1) defined but not used
newGLMnet.f90:3506.5:

15450 do 15451 k=1,ni                                                   
     1
Warning: Label 15450 at (1) defined but not used
newGLMnet.f90:3503.5:

15442 continue                                                          
     1
Warning: Label 15442 at (1) defined but not used
newGLMnet.f90:3493.5:

15440 do 15441 j=1,ni                                                   
     1
Warning: Label 15440 at (1) defined but not used
newGLMnet.f90:3505.5:

15432 continue                                                          
     1
Warning: Label 15432 at (1) defined but not used
newGLMnet.f90:3489.5:

15430 do 15431 ic=1,nc                                                  
     1
Warning: Label 15430 at (1) defined but not used
newGLMnet.f90:3488.5:

15422 continue                                                          
     1
Warning: Label 15422 at (1) defined but not used
newGLMnet.f90:3483.5:

15420 do 15421 j=1,ni                                                   
     1
Warning: Label 15420 at (1) defined but not used
newGLMnet.f90:3479.5:

15392 continue                                                          
     1
Warning: Label 15392 at (1) defined but not used
newGLMnet.f90:3476.5:

15390 do 15391 ic=1,nc                                                  
     1
Warning: Label 15390 at (1) defined but not used
newGLMnet.f90:3465.5:

15361 continue                                                          
     1
Warning: Label 15361 at (1) defined but not used
newGLMnet.f90:3472.5:

15352 continue                                                          
     1
Warning: Label 15352 at (1) defined but not used
newGLMnet.f90:3457.5:

15350 do 15351 j=1,nin                                                  
     1
Warning: Label 15350 at (1) defined but not used
newGLMnet.f90:3446.5:

15342 continue                                                          
     1
Warning: Label 15342 at (1) defined but not used
newGLMnet.f90:3439.5:

15340 do 15341 j=1,nin                                                  
     1
Warning: Label 15340 at (1) defined but not used
newGLMnet.f90:3428.5:

15310 do 15311 j=1,nin                                                  
     1
Warning: Label 15310 at (1) defined but not used
newGLMnet.f90:3400.5:

15221 continue                                                          
     1
Warning: Label 15221 at (1) defined but not used
newGLMnet.f90:3408.5:

15212 continue                                                          
     1
Warning: Label 15212 at (1) defined but not used
newGLMnet.f90:3383.5:

15210 do 15211 l=1,nin                                                  
     1
Warning: Label 15210 at (1) defined but not used
newGLMnet.f90:3379.5:

15200 continue                                                          
     1
Warning: Label 15200 at (1) defined but not used
newGLMnet.f90:3347.5:

15091 continue                                                          
     1
Warning: Label 15091 at (1) defined but not used
newGLMnet.f90:3330.5:

15080 do 15081 k=1,ni                                                   
     1
Warning: Label 15080 at (1) defined but not used
newGLMnet.f90:3326.5:

15070 continue                                                          
     1
Warning: Label 15070 at (1) defined but not used
newGLMnet.f90:3325.5:

15042 continue                                                          
     1
Warning: Label 15042 at (1) defined but not used
newGLMnet.f90:3315.5:

15040 do 15041 j=1,ni                                                   
     1
Warning: Label 15040 at (1) defined but not used
newGLMnet.f90:3312.5:

14992 continue                                                          
     1
Warning: Label 14992 at (1) defined but not used
newGLMnet.f90:3294.5:

14990 do 14991 i=1,no                                                   
     1
Warning: Label 14990 at (1) defined but not used
newGLMnet.f90:3288.5:

14980 do 14981 ic=1,nc                                                  
     1
Warning: Label 14980 at (1) defined but not used
newGLMnet.f90:3283.5:

14970 continue                                                          
     1
Warning: Label 14970 at (1) defined but not used
newGLMnet.f90:3281.5:

14962 continue                                                          
     1
Warning: Label 14962 at (1) defined but not used
newGLMnet.f90:3276.5:

14960 do 14961 k=1,ni                                                   
     1
Warning: Label 14960 at (1) defined but not used
newGLMnet.f90:3268.5:

14952 continue                                                          
     1
Warning: Label 14952 at (1) defined but not used
newGLMnet.f90:3264.5:

14950 do 14951 j=1,ni                                                   
     1
Warning: Label 14950 at (1) defined but not used
newGLMnet.f90:3251.5:

14890 do 14891 ilm=1,nlam                                               
     1
Warning: Label 14890 at (1) defined but not used
newGLMnet.f90:3248.5:

14882 continue                                                          
     1
Warning: Label 14882 at (1) defined but not used
newGLMnet.f90:3239.5:

14880 do 14881 j=1,ni                                                   
     1
Warning: Label 14880 at (1) defined but not used
newGLMnet.f90:3250.5:

14872 continue                                                          
     1
Warning: Label 14872 at (1) defined but not used
newGLMnet.f90:3235.5:

14870 do 14871 ic=1,nc                                                  
     1
Warning: Label 14870 at (1) defined but not used
newGLMnet.f90:3217.5:

14842 continue                                                          
     1
Warning: Label 14842 at (1) defined but not used
newGLMnet.f90:3211.5:

14840 do 14841 j=1,ni                                                   
     1
Warning: Label 14840 at (1) defined but not used
newGLMnet.f90:3219.5:

14811 continue                                                          
     1
Warning: Label 14811 at (1) defined but not used
newGLMnet.f90:3202.5:

14782 continue                                                          
     1
Warning: Label 14782 at (1) defined but not used
newGLMnet.f90:3199.5:

14780 do 14781 i=1,no                                                   
     1
Warning: Label 14780 at (1) defined but not used
newGLMnet.f90:3204.5:

14772 continue                                                          
     1
Warning: Label 14772 at (1) defined but not used
newGLMnet.f90:3198.5:

14770 do 14771 ic=1,nc                                                  
     1
Warning: Label 14770 at (1) defined but not used
newGLMnet.f90:3195.5:

14762 continue                                                          
     1
Warning: Label 14762 at (1) defined but not used
newGLMnet.f90:3192.5:

14760 do 14761 ic=1,nc                                                  
     1
Warning: Label 14760 at (1) defined but not used
newGLMnet.f90:3190.5:

14752 continue                                                          
     1
Warning: Label 14752 at (1) defined but not used
newGLMnet.f90:3184.5:

14750 do 14751 ic=1,nc                                                  
     1
Warning: Label 14750 at (1) defined but not used
newGLMnet.f90:3179.5:

14742 continue                                                          
     1
Warning: Label 14742 at (1) defined but not used
newGLMnet.f90:3176.5:

14740 do 14741 i=1,no                                                   
     1
Warning: Label 14740 at (1) defined but not used
newGLMnet.f90:3173.5:

14722 continue                                                          
     1
Warning: Label 14722 at (1) defined but not used
newGLMnet.f90:3169.5:

14720 do 14721 ic=1,nc                                                  
     1
Warning: Label 14720 at (1) defined but not used
newGLMnet.f90:3197.5:

14701 continue                                                          
     1
Warning: Label 14701 at (1) defined but not used
newGLMnet.f90:3163.5:

14652 continue                                                          
     1
Warning: Label 14652 at (1) defined but not used
newGLMnet.f90:3149.5:

14650 do 14651 ic=1,nc                                                  
     1
Warning: Label 14650 at (1) defined but not used
newGLMnet.f90:3569.5:

15552 continue                                                          
     1
Warning: Label 15552 at (1) defined but not used
newGLMnet.f90:3566.5:

15550 do 15551 ic=1,nc                                                  
     1
Warning: Label 15550 at (1) defined but not used
newGLMnet.f90:3571.5:

15542 continue                                                          
     1
Warning: Label 15542 at (1) defined but not used
newGLMnet.f90:3562.5:

15540 do 15541 j=1,nin                                                  
     1
Warning: Label 15540 at (1) defined but not used
newGLMnet.f90:3561.5:

15532 continue                                                          
     1
Warning: Label 15532 at (1) defined but not used
newGLMnet.f90:3558.5:

15530 do 15531 ic=1,nc                                                  
     1
Warning: Label 15530 at (1) defined but not used
newGLMnet.f90:3620.5:

15662 continue                                                          
     1
Warning: Label 15662 at (1) defined but not used
newGLMnet.f90:3616.5:

15660 do 15661 k=1,lmu                                                  
     1
Warning: Label 15660 at (1) defined but not used
newGLMnet.f90:3638.5:

15672 continue                                                          
     1
Warning: Label 15672 at (1) defined but not used
newGLMnet.f90:3629.5:

15670 do 15671 j=1,ni                                                   
     1
Warning: Label 15670 at (1) defined but not used
newGLMnet.f90:3880.5:

16182 continue                                                          
     1
Warning: Label 16182 at (1) defined but not used
newGLMnet.f90:3877.5:

16180 do 16181 j=1,nin                                                  
     1
Warning: Label 16180 at (1) defined but not used
newGLMnet.f90:3859.5:

16132 continue                                                          
     1
Warning: Label 16132 at (1) defined but not used
newGLMnet.f90:3850.5:

16130 do 16131 k=1,ni                                                   
     1
Warning: Label 16130 at (1) defined but not used
newGLMnet.f90:3842.5:

16100 do 16101 j=1,nin                                                  
     1
Warning: Label 16100 at (1) defined but not used
newGLMnet.f90:3815.5:

16011 continue                                                          
     1
Warning: Label 16011 at (1) defined but not used
newGLMnet.f90:3824.5:

16002 continue                                                          
     1
Warning: Label 16002 at (1) defined but not used
newGLMnet.f90:3806.5:

16000 do 16001 l=1,nin                                                  
     1
Warning: Label 16000 at (1) defined but not used
newGLMnet.f90:3802.5:

15990 continue                                                          
     1
Warning: Label 15990 at (1) defined but not used
newGLMnet.f90:3780.5:

15901 continue                                                          
     1
Warning: Label 15901 at (1) defined but not used
newGLMnet.f90:3771.5:

15890 do 15891 j=1,ni                                                   
     1
Warning: Label 15890 at (1) defined but not used
newGLMnet.f90:3767.5:

15880 continue                                                          
     1
Warning: Label 15880 at (1) defined but not used
newGLMnet.f90:3763.5:

15870 continue                                                          
     1
Warning: Label 15870 at (1) defined but not used
newGLMnet.f90:3761.5:

15862 continue                                                          
     1
Warning: Label 15862 at (1) defined but not used
newGLMnet.f90:3756.5:

15860 do 15861 k=1,ni                                                   
     1
Warning: Label 15860 at (1) defined but not used
newGLMnet.f90:3748.5:

15852 continue                                                          
     1
Warning: Label 15852 at (1) defined but not used
newGLMnet.f90:3744.5:

15850 do 15851 j=1,ni                                                   
     1
Warning: Label 15850 at (1) defined but not used
newGLMnet.f90:3731.5:

15790 do 15791 ilm=1,nlam                                               
     1
Warning: Label 15790 at (1) defined but not used
newGLMnet.f90:3730.5:

15782 continue                                                          
     1
Warning: Label 15782 at (1) defined but not used
newGLMnet.f90:3726.5:

15780 do 15781 j=1,ni                                                   
     1
Warning: Label 15780 at (1) defined but not used
newGLMnet.f90:3712.5:

15732 continue                                                          
     1
Warning: Label 15732 at (1) defined but not used
newGLMnet.f90:3706.5:

15730 do 15731 i=1,no                                                   
     1
Warning: Label 15730 at (1) defined but not used
newGLMnet.f90:3702.5:

15701 continue                                                          
     1
Warning: Label 15701 at (1) defined but not used
newGLMnet.f90:3945.5:

16290 continue                                                          
     1
Warning: Label 16290 at (1) defined but not used
newGLMnet.f90:3943.5:

16280 continue                                                          
     1
Warning: Label 16280 at (1) defined but not used
newGLMnet.f90:3937.5:

16272 continue                                                          
     1
Warning: Label 16272 at (1) defined but not used
newGLMnet.f90:3934.5:

16270 do 16271 j=1,nj                                                   
     1
Warning: Label 16270 at (1) defined but not used
newGLMnet.f90:3922.5:

16240 continue                                                          
     1
Warning: Label 16240 at (1) defined but not used
newGLMnet.f90:3916.5:

16212 continue                                                          
     1
Warning: Label 16212 at (1) defined but not used
newGLMnet.f90:3911.5:

16210 do 16211 j=1,no                                                   
     1
Warning: Label 16210 at (1) defined but not used
newGLMnet.f90:3908.5:

16202 continue                                                          
     1
Warning: Label 16202 at (1) defined but not used
newGLMnet.f90:3905.5:

16200 do 16201 j=1,no                                                   
     1
Warning: Label 16200 at (1) defined but not used
newGLMnet.f90:4018.5:

16402 continue                                                          
     1
Warning: Label 16402 at (1) defined but not used
newGLMnet.f90:4015.5:

16400 do 16401 k=2,nk                                                   
     1
Warning: Label 16400 at (1) defined but not used
newGLMnet.f90:4032.5:

16422 continue                                                          
     1
Warning: Label 16422 at (1) defined but not used
newGLMnet.f90:4029.5:

16420 do 16421 j=j2,j1,-1                                               
     1
Warning: Label 16420 at (1) defined but not used
newGLMnet.f90:4035.5:

16412 continue                                                          
     1
Warning: Label 16412 at (1) defined but not used
newGLMnet.f90:4025.5:

16410 do 16411 k=nk,1,-1                                                
     1
Warning: Label 16410 at (1) defined but not used
newGLMnet.f90:3997.5:

16362 continue                                                          
     1
Warning: Label 16362 at (1) defined but not used
newGLMnet.f90:3988.5:

16360 do 16361 j=j1,j2                                                  
     1
Warning: Label 16360 at (1) defined but not used
newGLMnet.f90:3999.5:

16352 continue                                                          
     1
Warning: Label 16352 at (1) defined but not used
newGLMnet.f90:3983.5:

16350 do 16351 k=2,nk                                                   
     1
Warning: Label 16350 at (1) defined but not used
newGLMnet.f90:3982.5:

16322 continue                                                          
     1
Warning: Label 16322 at (1) defined but not used
newGLMnet.f90:3973.5:

16320 do 16321 j=1,kp(1)                                                
     1
Warning: Label 16320 at (1) defined but not used
newGLMnet.f90:4008.5:

16392 continue                                                          
     1
Warning: Label 16392 at (1) defined but not used
newGLMnet.f90:4005.5:

16390 do 16391 j=1,ni                                                   
     1
Warning: Label 16390 at (1) defined but not used
newGLMnet.f90:3899.5:

16192 continue                                                          
     1
Warning: Label 16192 at (1) defined but not used
newGLMnet.f90:3896.5:

16190 do 16191 i=1,n                                                    
     1
Warning: Label 16190 at (1) defined but not used
newGLMnet.f90:4091.5:

16472 continue                                                          
     1
Warning: Label 16472 at (1) defined but not used
newGLMnet.f90:4087.5:

16470 do 16471 i=1,no                                                   
     1
Warning: Label 16470 at (1) defined but not used
newGLMnet.f90:4094.5:

16462 continue                                                          
     1
Warning: Label 16462 at (1) defined but not used
newGLMnet.f90:4086.5:

16460 do 16461 lam=1,nlam                                               
     1
Warning: Label 16460 at (1) defined but not used
newGLMnet.f90:4085.5:

16452 continue                                                          
     1
Warning: Label 16452 at (1) defined but not used
newGLMnet.f90:4082.5:

16450 do 16451 j=1,ni                                                   
     1
Warning: Label 16450 at (1) defined but not used
newGLMnet.f90:4151.5:

16582 continue                                                          
     1
Warning: Label 16582 at (1) defined but not used
newGLMnet.f90:4146.5:

16580 do 16581 k=1,lmu                                                  
     1
Warning: Label 16580 at (1) defined but not used
newGLMnet.f90:4398.5:

17022 continue                                                          
     1
Warning: Label 17022 at (1) defined but not used
newGLMnet.f90:4395.5:

17020 do 17021 j=1,nin                                                  
     1
Warning: Label 17020 at (1) defined but not used
newGLMnet.f90:4375.5:

16972 continue                                                          
     1
Warning: Label 16972 at (1) defined but not used
newGLMnet.f90:4366.5:

16970 do 16971 k=1,ni                                                   
     1
Warning: Label 16970 at (1) defined but not used
newGLMnet.f90:4358.5:

16940 do 16941 j=1,nin                                                  
     1
Warning: Label 16940 at (1) defined but not used
newGLMnet.f90:4330.5:

16871 continue                                                          
     1
Warning: Label 16871 at (1) defined but not used
newGLMnet.f90:4337.5:

16862 continue                                                          
     1
Warning: Label 16862 at (1) defined but not used
newGLMnet.f90:4319.5:

16860 do 16861 l=1,nin                                                  
     1
Warning: Label 16860 at (1) defined but not used
newGLMnet.f90:4315.5:

16850 continue                                                          
     1
Warning: Label 16850 at (1) defined but not used
newGLMnet.f90:4290.5:

16781 continue                                                          
     1
Warning: Label 16781 at (1) defined but not used
newGLMnet.f90:4279.5:

16770 do 16771 k=1,ni                                                   
     1
Warning: Label 16770 at (1) defined but not used
newGLMnet.f90:4275.5:

16760 continue                                                          
     1
Warning: Label 16760 at (1) defined but not used
newGLMnet.f90:4274.5:

16752 continue                                                          
     1
Warning: Label 16752 at (1) defined but not used
newGLMnet.f90:4271.5:

16750 do 16751 j=1,ni                                                   
     1
Warning: Label 16750 at (1) defined but not used
newGLMnet.f90:4267.5:

16740 continue                                                          
     1
Warning: Label 16740 at (1) defined but not used
newGLMnet.f90:4265.5:

16732 continue                                                          
     1
Warning: Label 16732 at (1) defined but not used
newGLMnet.f90:4260.5:

16730 do 16731 k=1,ni                                                   
     1
Warning: Label 16730 at (1) defined but not used
newGLMnet.f90:4252.5:

16722 continue                                                          
     1
Warning: Label 16722 at (1) defined but not used
newGLMnet.f90:4248.5:

16720 do 16721 j=1,ni                                                   
     1
Warning: Label 16720 at (1) defined but not used
newGLMnet.f90:4235.5:

16660 do 16661 ilm=1,nlam                                               
     1
Warning: Label 16660 at (1) defined but not used
newGLMnet.f90:4234.5:

16652 continue                                                          
     1
Warning: Label 16652 at (1) defined but not used
newGLMnet.f90:4230.5:

16650 do 16651 j=1,ni                                                   
     1
Warning: Label 16650 at (1) defined but not used
newGLMnet.f90:4215.5:

16622 continue                                                          
     1
Warning: Label 16622 at (1) defined but not used
newGLMnet.f90:4212.5:

16620 do 16621 i=1,no                                                   
     1
Warning: Label 16620 at (1) defined but not used
newGLMnet.f90:4206.5:

16591 continue                                                          
     1
Warning: Label 16591 at (1) defined but not used
newGLMnet.f90:4405.5:

11790 continue                                                          
     1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4427.5:

17062 continue                                                          
     1
Warning: Label 17062 at (1) defined but not used
newGLMnet.f90:4424.5:

17060 do 17061 lam=1,lmu                                                
     1
Warning: Label 17060 at (1) defined but not used
newGLMnet.f90:4436.5:

17072 continue                                                          
     1
Warning: Label 17072 at (1) defined but not used
newGLMnet.f90:4433.5:

17070 do 17071 lam=1,lmu                                                
     1
Warning: Label 17070 at (1) defined but not used
newGLMnet.f90:4463.5:

17132 continue                                                          
     1
Warning: Label 17132 at (1) defined but not used
newGLMnet.f90:4458.5:

17130 do 17131 i=1,no                                                   
     1
Warning: Label 17130 at (1) defined but not used
newGLMnet.f90:4466.5:

17122 continue                                                          
     1
Warning: Label 17122 at (1) defined but not used
newGLMnet.f90:4456.5:

17120 do 17121 lam=1,nlam                                               
     1
Warning: Label 17120 at (1) defined but not used
newGLMnet.f90:4521.5:

17222 continue                                                          
     1
Warning: Label 17222 at (1) defined but not used
newGLMnet.f90:4516.5:

17220 do 17221 k=1,lmu                                                  
     1
Warning: Label 17220 at (1) defined but not used
newGLMnet.f90:4805.5:

17672 continue                                                          
     1
Warning: Label 17672 at (1) defined but not used
newGLMnet.f90:4802.5:

17670 do 17671 j=1,nin                                                  
     1
Warning: Label 17670 at (1) defined but not used
newGLMnet.f90:4782.5:

17622 continue                                                          
     1
Warning: Label 17622 at (1) defined but not used
newGLMnet.f90:4769.5:

17620 do 17621 j=1,ni                                                   
     1
Warning: Label 17620 at (1) defined but not used
newGLMnet.f90:4761.5:

17590 do 17591 j=1,nin                                                  
     1
Warning: Label 17590 at (1) defined but not used
newGLMnet.f90:4729.5:

17521 continue                                                          
     1
Warning: Label 17521 at (1) defined but not used
newGLMnet.f90:4739.5:

17512 continue                                                          
     1
Warning: Label 17512 at (1) defined but not used
newGLMnet.f90:4715.5:

17510 do 17511 l=1,nin                                                  
     1
Warning: Label 17510 at (1) defined but not used
newGLMnet.f90:4711.5:

17500 continue                                                          
     1
Warning: Label 17500 at (1) defined but not used
newGLMnet.f90:4684.5:

17431 continue                                                          
     1
Warning: Label 17431 at (1) defined but not used
newGLMnet.f90:4670.5:

17420 do 17421 k=1,ni                                                   
     1
Warning: Label 17420 at (1) defined but not used
newGLMnet.f90:4666.5:

17410 continue                                                          
     1
Warning: Label 17410 at (1) defined but not used
newGLMnet.f90:4665.5:

17402 continue                                                          
     1
Warning: Label 17402 at (1) defined but not used
newGLMnet.f90:4657.5:

17400 do 17401 j=1,ni                                                   
     1
Warning: Label 17400 at (1) defined but not used
newGLMnet.f90:4653.5:

17390 continue                                                          
     1
Warning: Label 17390 at (1) defined but not used
newGLMnet.f90:4651.5:

17382 continue                                                          
     1
Warning: Label 17382 at (1) defined but not used
newGLMnet.f90:4646.5:

17380 do 17381 k=1,ni                                                   
     1
Warning: Label 17380 at (1) defined but not used
newGLMnet.f90:4638.5:

17372 continue                                                          
     1
Warning: Label 17372 at (1) defined but not used
newGLMnet.f90:4634.5:

17370 do 17371 j=1,ni                                                   
     1
Warning: Label 17370 at (1) defined but not used
newGLMnet.f90:4621.5:

17310 do 17311 ilm=1,nlam                                               
     1
Warning: Label 17310 at (1) defined but not used
newGLMnet.f90:4620.5:

17302 continue                                                          
     1
Warning: Label 17302 at (1) defined but not used
newGLMnet.f90:4613.5:

17300 do 17301 j=1,ni                                                   
     1
Warning: Label 17300 at (1) defined but not used
newGLMnet.f90:4598.5:

17272 continue                                                          
     1
Warning: Label 17272 at (1) defined but not used
newGLMnet.f90:4595.5:

17270 do 17271 i=1,no                                                   
     1
Warning: Label 17270 at (1) defined but not used
newGLMnet.f90:4586.5:

17262 continue                                                          
     1
Warning: Label 17262 at (1) defined but not used
newGLMnet.f90:4580.5:

17260 do 17261 j=1,ni                                                   
     1
Warning: Label 17260 at (1) defined but not used
newGLMnet.f90:4588.5:

17231 continue                                                          
     1
Warning: Label 17231 at (1) defined but not used
newGLMnet.f90:4812.5:

11790 continue                                                          
     1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4844.5:

17732 continue                                                          
     1
Warning: Label 17732 at (1) defined but not used
newGLMnet.f90:4838.5:

17730 do 17731 j=1,ni                                                   
     1
Warning: Label 17730 at (1) defined but not used
newGLMnet.f90:4849.5:

17722 continue                                                          
     1
Warning: Label 17722 at (1) defined but not used
newGLMnet.f90:4836.5:

17720 do 17721 lam=1,nlam                                               
     1
Warning: Label 17720 at (1) defined but not used
newGLMnet.f90:4883.5:

17792 continue                                                          
     1
Warning: Label 17792 at (1) defined but not used
newGLMnet.f90:4877.5:

17790 do 17791 k=1,nin(lam)                                             
     1
Warning: Label 17790 at (1) defined but not used
newGLMnet.f90:4888.5:

17782 continue                                                          
     1
Warning: Label 17782 at (1) defined but not used
newGLMnet.f90:4875.5:

17780 do 17781 lam=1,nlam                                               
     1
Warning: Label 17780 at (1) defined but not used
newGLMnet.f90:4527.25:

     *min,ulam,  shri,isd,maxit,xb,xs,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,j
                         1
Warning: Unused dummy argument 'isd' at (1)
newGLMnet.f90:4158.17:

     *,shri,  isd,maxit,lmu,a0,ca,m,kin,dev0,dev,alm,nlp,jerr)          
                 1
Warning: Unused dummy argument 'isd' at (1)
newGLMnet.f90:4038.25:

      function risk(no,ni,nk,d,dk,f,e,kp,jp,u)                          
                         1
Warning: Unused dummy argument 'ni' at (1)
newGLMnet.f90:4041.24:

      real e(no),u(nk),s                                                
                        1
Warning: Unused variable 's' declared at (1)
newGLMnet.f90:3642.19:

     *m,cthri,  isd,maxit,lmu,ao,m,kin,dev0,dev,alm,nlp,jerr)           
                   1
Warning: Unused dummy argument 'isd' at (1)
newGLMnet.f90:1394.8:

     *rr)                                                               
        1
Warning: Unused dummy argument 'jerr' at (1)
newGLMnet.f90:1150.9:

     *err)                                                              
         1
Warning: Unused dummy argument 'jerr' at (1)
newGLMnet.f90: In function ‘azero’:
newGLMnet.f90:2086:0: warning: control reaches end of non-void function [-Wreturn-type]
       if(jerr.ne.0) return                                                 1413
 ^
newGLMnet.f90: In function ‘spfishnet1’:
newGLMnet.f90:4640:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       al=alf*al0                                                           2613
 ^
newGLMnet.f90:4535:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,ixx                             
 ^
newGLMnet.f90:4535:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4534:0: warning: ‘t.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: qy,t,w,wr,v,a,as,xm,ga                
 ^
newGLMnet.f90:4534:0: warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4534:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘fishnet1’:
newGLMnet.f90:4254:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       al=alf*al0                                                           2431
 ^
newGLMnet.f90:4164:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga                    
 ^
newGLMnet.f90:4165:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,ixx                             
 ^
newGLMnet.f90:4165:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0: warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga                    
 ^
newGLMnet.f90:4164:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘coxnet1’:
newGLMnet.f90:3750:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       al=alf*al0                                                           2193
 ^
newGLMnet.f90:3649:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: jp,kp,mm,ixx                       
 ^
newGLMnet.f90:3647:0: warning: ‘wr.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: w,dk,v,xs,wr,a,as,f,dq                
 ^
newGLMnet.f90:3649:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: jp,kp,mm,ixx                       
 ^
newGLMnet.f90:3647:0: warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: w,dk,v,xs,wr,a,as,f,dq                
 ^
newGLMnet.f90:3647:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3647:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘sprlognetn’:
newGLMnet.f90:3270:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       al=alf*al0                                                           1961
 ^
newGLMnet.f90:3111:0: warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: sc,xm,v,r,ga                          
 ^
newGLMnet.f90:3110:0: warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: sxp,sxpl                              
 ^
newGLMnet.f90:3110:0: warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3113:0: warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,is,iy                           
 ^
newGLMnet.f90:3111:0: warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: sc,xm,v,r,ga                          
 ^
newGLMnet.f90:3113:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,is,iy                           
 ^
newGLMnet.f90:3111:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: sc,xm,v,r,ga                          
 ^
newGLMnet.f90:3109:0: warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:,:), allocatable :: q                                   
 ^
newGLMnet.f90:3109:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3109:0: warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:,:), allocatable :: b,bs,xv                             
 ^
newGLMnet.f90:3112:0: warning: ‘bs.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘bs.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘xv.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘b.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘b.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0: warning: ‘b.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘sprlognet2n’:
newGLMnet.f90:2883:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       al=alf*al0                                                           1779
 ^
newGLMnet.f90:2758:0: warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga                
 ^
newGLMnet.f90:2758:0: warning: ‘v.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2759:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,ixx                             
 ^
newGLMnet.f90:2759:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga                
 ^
newGLMnet.f90:2758:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘lognetn’:
newGLMnet.f90:2258:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       al=alf*al0                                                           1491
 ^
newGLMnet.f90:2116:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,is,ixx                          
 ^
newGLMnet.f90:2114:0: warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: di,v,r,ga                             
 ^
newGLMnet.f90:2114:0: warning: ‘di.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2113:0: warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: sxp,sxpl                              
 ^
newGLMnet.f90:2113:0: warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2116:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,is,ixx                          
 ^
newGLMnet.f90:2114:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: di,v,r,ga                             
 ^
newGLMnet.f90:2112:0: warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:,:), allocatable :: q                                   
 ^
newGLMnet.f90:2112:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2112:0: warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:,:), allocatable :: b,bs,xv                             
 ^
newGLMnet.f90:2115:0: warning: ‘bs.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘bs.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘xv.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘b.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘b.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2115:0: warning: ‘b.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘lognet2n’:
newGLMnet.f90:1889:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       al=alf*al0                                                           1320
 ^
newGLMnet.f90:1779:0: warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga                      
 ^
newGLMnet.f90:1779:0: warning: ‘v.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0: warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1780:0: warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,ixx                             
 ^
newGLMnet.f90:1780:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0: warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga                      
 ^
newGLMnet.f90:1779:0: warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘spelnet2’:
newGLMnet.f90:1479:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       alm=alf*alm0                                                         1128
 ^
newGLMnet.f90:1428:0: warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,iy                              
 ^
newGLMnet.f90:1428:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1427:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: a,g                                   
 ^
newGLMnet.f90: In function ‘spelnetn’:
newGLMnet.f90:1356:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,xv,vlam                         
 ^
newGLMnet.f90:1357:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90: In function ‘spelnet1’:
newGLMnet.f90:1220:0: warning: ‘alm’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       alm=alm*alf                                                           999
 ^
newGLMnet.f90:1233:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       alm=alf*alm/max(bta,1.0e-3)                                          1006
 ^
newGLMnet.f90:1192:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm                                 
 ^
newGLMnet.f90:1191:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: a,da                                  
 ^
newGLMnet.f90:1193:0: warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:,:), allocatable :: c                                   
 ^
newGLMnet.f90:1193:0: warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘spelnetu’:
newGLMnet.f90:1110:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,g,xv,vlam                       
 ^
newGLMnet.f90:1111:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90: In function ‘elnet2’:
newGLMnet.f90:929:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       alm=alf*alm0                                                          836
 ^
newGLMnet.f90:881:0: warning: ‘ix.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm,ix                              
 ^
newGLMnet.f90:881:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:880:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: a,g                                   
 ^
newGLMnet.f90: In function ‘elnetn’:
newGLMnet.f90:801:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,xv,vlam                         
 ^
newGLMnet.f90:802:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90: In function ‘elnet1’:
newGLMnet.f90:678:0: warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       alm=alf*alm/max(bta,1.0e-3)                                           712
 ^
newGLMnet.f90:637:0: warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: mm                                 
 ^
newGLMnet.f90:636:0: warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: a,da                                  
 ^
newGLMnet.f90:638:0: warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:,:), allocatable :: c                                   
 ^
newGLMnet.f90:638:0: warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘elnetu’:
newGLMnet.f90:550:0: warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,g,xv,vlam                       
 ^
newGLMnet.f90:551:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90: In function ‘lognet’:
newGLMnet.f90:1694:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90:1695:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90:1694:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90: In function ‘splognet’:
newGLMnet.f90:2672:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90:2673:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90:2672:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90: In function ‘coxnet’:
newGLMnet.f90:3579:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xs,ww,vq                              
 ^
newGLMnet.f90:3580:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90: In function ‘fishnet’:
newGLMnet.f90:4104:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90:4105:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90:4104:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90: In function ‘spfishnet’:
newGLMnet.f90:4476:0: warning: ‘vq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90:4477:0: warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       integer, dimension (:), allocatable :: ju                                 
 ^
newGLMnet.f90:4476:0: warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: xm,xs,ww,vq                           
 ^
newGLMnet.f90: In function ‘spdeviance’:
newGLMnet.f90:4819:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: w,f                                   
 ^
newGLMnet.f90:4819:0: warning: ‘w.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90: In function ‘cspdeviance’:
newGLMnet.f90:4858:0: warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
       real, dimension (:), allocatable :: w,f                                   
 ^
newGLMnet.f90:4858:0: warning: ‘w.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
gfortran-4.8 -dynamiclib -Wl,-headerpad_max_install_names -undefined dynamic_lookup -single_module -multiply_defined suppress -L/Library/Frameworks/R.framework/Resources/lib -L/usr/local/lib -o iClusterPlus.so iClusterPlus.o newGLMnet.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/usr/local/lib/gcc/x86_64-apple-darwin13.0.0/4.8.2 -lgfortran -lquadmath -lm -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
installing to /Users/biocbuild/bbs-3.0-bioc/meat/iClusterPlus.Rcheck/iClusterPlus/libs
** R
** data
*** moving datasets to lazyload DB
** demo
** inst
** preparing package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
** testing if installed package can be loaded
* DONE (iClusterPlus)

iClusterPlus.Rcheck/iClusterPlus-Ex.timings:

nameusersystemelapsed
CNregions0.0010.0000.001
compute.pod0.0010.0000.001
iCluster6.9980.0477.235
iCluster20.6750.0080.684
iClusterPlus000
plotHeatmap0.0000.0000.001
plotRI0.0010.0010.001
plotiCluster0.0010.0000.001
tune.iClusterPlus0.0010.0000.000
utility0.0010.0000.001