Back to Multiple platform build/check report for BioC 3.7
ABCDEFGH[I]JKLMNOPQRSTUVWXYZ

CHECK report for iClusterPlus on merida2

This page was generated on 2018-10-17 08:52:23 -0400 (Wed, 17 Oct 2018).

Package 712/1561HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
iClusterPlus 1.16.0
Qianxing Mo , Ronglai Shen
Snapshot Date: 2018-10-15 16:45:08 -0400 (Mon, 15 Oct 2018)
URL: https://git.bioconductor.org/packages/iClusterPlus
Branch: RELEASE_3_7
Last Commit: 6db4562
Last Changed Date: 2018-04-30 10:35:32 -0400 (Mon, 30 Apr 2018)
malbec2 Linux (Ubuntu 16.04.1 LTS) / x86_64  OK  OK  OK UNNEEDED, same version exists in internal repository
tokay2 Windows Server 2012 R2 Standard / x64  OK  OK  OK  OK UNNEEDED, same version exists in internal repository
merida2 OS X 10.11.6 El Capitan / x86_64  OK  OK [ WARNINGS ] OK UNNEEDED, same version exists in internal repository

Summary

Package: iClusterPlus
Version: 1.16.0
Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD check --install=check:iClusterPlus.install-out.txt --library=/Library/Frameworks/R.framework/Versions/Current/Resources/library --no-vignettes --timings iClusterPlus_1.16.0.tar.gz
StartedAt: 2018-10-16 22:02:22 -0400 (Tue, 16 Oct 2018)
EndedAt: 2018-10-16 22:04:39 -0400 (Tue, 16 Oct 2018)
EllapsedTime: 136.3 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 --install=check:iClusterPlus.install-out.txt --library=/Library/Frameworks/R.framework/Versions/Current/Resources/library --no-vignettes --timings iClusterPlus_1.16.0.tar.gz
###
##############################################################################
##############################################################################


* using log directory ‘/Users/biocbuild/bbs-3.7-bioc/meat/iClusterPlus.Rcheck’
* using R version 3.5.1 Patched (2018-07-12 r74967)
* using platform: x86_64-apple-darwin15.6.0 (64-bit)
* using session charset: UTF-8
* using option ‘--no-vignettes’
* checking for file ‘iClusterPlus/DESCRIPTION’ ... OK
* this is package ‘iClusterPlus’ version ‘1.16.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 ... WARNING
Found the following significant warnings:
  Warning: control reaches end of non-void function [-Wreturn-type]
See ‘/Users/biocbuild/bbs-3.7-bioc/meat/iClusterPlus.Rcheck/00install.out’ for details.
* checking installed package size ... NOTE
  installed size is 22.7Mb
  sub-directories of 1Mb or more:
    data  17.9Mb
    doc    4.2Mb
* checking package directory ... OK
* checking ‘build’ directory ... OK
* checking DESCRIPTION meta-information ... NOTE
Malformed Description field: should contain one or more complete sentences.
* 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 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: no visible global function definition for ‘tail’
CNregions: no visible global function definition for ‘quantile’
CNregions : get.medoid: no visible global function definition for ‘pam’
classError: no visible global function definition for ‘mapClass’
compute.pod: no visible global function definition for ‘model.matrix’
iCluster: no visible global function definition for ‘kmeans’
iCluster2: no visible global function definition for ‘kmeans’
iClusterBayes: no visible global function definition for ‘kmeans’
iClusterPlus: no visible global function definition for ‘rnorm’
iClusterPlus: no visible global function definition for ‘kmeans’
mcmcBayes: no visible global function definition for ‘rnorm’
plotHMBayes: no visible global function definition for ‘bluered’
plotHMBayes : my.panel.levelplot: no visible global function definition
  for ‘panel.levelplot’
plotHMBayes : my.panel.levelplot: no visible global function definition
  for ‘panel.abline’
plotHMBayes: no visible global function definition for ‘cor’
plotHMBayes: no visible global function definition for ‘hclust’
plotHMBayes: no visible global function definition for ‘as.dist’
plotHMBayes : my.panel.levelplot.2: no visible global function
  definition for ‘panel.levelplot’
plotHMBayes : my.panel.levelplot.2: no visible global function
  definition for ‘panel.abline’
plotHMBayes : scale.fn: no visible binding for global variable ‘sd’
plotHMBayes: no visible global function definition for ‘quantile’
plotHMBayes: no visible global function definition for ‘levelplot’
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: no visible global function definition for ‘quantile’
plotHeatmap: no visible global function definition for ‘cor’
plotHeatmap: no visible global function definition for ‘hclust’
plotHeatmap: no visible global function definition for ‘as.dist’
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 : scale.fn: no visible binding for global variable ‘sd’
plotHeatmap: no visible global function definition for ‘levelplot’
plotRI: no visible global function definition for ‘plot’
plotRI: no visible global function definition for ‘axis’
plotiCluster: no visible global function definition for ‘image’
plotiCluster: no visible global function definition for ‘gray’
plotiCluster: no visible global function definition for ‘axis’
plotiCluster: no visible global function definition for ‘mtext’
plotiCluster: no visible global function definition for ‘box’
predict.kmeans: no visible global function definition for ‘dist’
tune.iCluster2: no visible global function definition for ‘data’
tune.iCluster2: no visible binding for global variable ‘glp’
tune.iClusterBayes: no visible global function definition for
  ‘mclapply’
tune.iClusterPlus: no visible global function definition for ‘data’
tune.iClusterPlus: no visible binding for global variable ‘glp’
tune.iClusterPlus: no visible global function definition for ‘mclapply’
Undefined global functions or variables:
  GRanges IRanges as.dist axis bluered box chromosome cor data dist
  findOverlaps glp gray hclust image kmeans levelplot mapClass mclapply
  model.matrix mtext num.mark pam panel.abline panel.levelplot plot
  quantile rnorm sd tail
Consider adding
  importFrom("grDevices", "gray")
  importFrom("graphics", "axis", "box", "image", "mtext", "plot")
  importFrom("stats", "as.dist", "cor", "dist", "hclust", "kmeans",
             "model.matrix", "quantile", "rnorm", "sd")
  importFrom("utils", "data", "tail")
to your NAMESPACE file.
* 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 shell scripts ... 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 ... NOTE
Note: information on .o files is not available
* checking sizes of PDF files under ‘inst/doc’ ... OK
* checking installed files from ‘inst/doc’ ... OK
* checking files in ‘vignettes’ ... OK
* checking examples ... OK
Examples with CPU or elapsed time > 5s
          user system elapsed
iCluster 4.911  0.062   5.011
* checking for unstated dependencies in ‘tests’ ... OK
* checking tests ...
  Running ‘runTests.R’
 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

Status: 1 WARNING, 5 NOTEs
See
  ‘/Users/biocbuild/bbs-3.7-bioc/meat/iClusterPlus.Rcheck/00check.log’
for details.



Installation output

iClusterPlus.Rcheck/00install.out

##############################################################################
##############################################################################
###
### Running command:
###
###   /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD INSTALL iClusterPlus
###
##############################################################################
##############################################################################


* installing to library ‘/Library/Frameworks/R.framework/Versions/3.5/Resources/library’
* 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   -fPIC  -Wall -g -O2  -c iClusterBayes.c -o iClusterBayes.o
clang -I"/Library/Frameworks/R.framework/Resources/include" -DNDEBUG   -I/usr/local/include   -fPIC  -Wall -g -O2  -c iClusterPlus.c -o iClusterPlus.o
iClusterPlus.c:1101:60: warning: unused variable 'tempm3' [-Wunused-variable]
  double *btp,*btpb, *EXZt,*tempX,*tempm0,*tempm1,*tempm2,*tempm3,*BOld,*PhivecOld, *XtXdiag;
                                                           ^
1 warning generated.
gfortran -fdefault-real-8 -ffixed-form -fPIC -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    609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:521:72:

       real x(no,ni),y(no),w(no),vp(ni),ca(nx,nlam)                          610
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:522:72:

       real ulam(nlam),a0(nlam),rsq(nlam),alm(nlam)                          611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:523:72:

       integer jd(*),ia(nx),nin(nlam)                                        612
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:525:72:

       if(maxval(vp) .gt. 0.0)goto 10021                                     615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:526:72:

       jerr=10000                                                            615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:527:72:

       return                                                                615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:528:72:

 10021 continue                                                              616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:529:72:

       allocate(vq(1:ni),stat=jerr)                                          616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:530:72:

       if(jerr.ne.0) return                                                  617
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:531:72:

       vq=max(0.0,vp)                                                        617
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:532:72:

       vq=vq*ni/sum(vq)                                                      618
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:533:72:

       if(ka .ne. 1)goto 10041                                               619
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:534:72:

       call elnetu  (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd    622
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:536:72:

       goto 10051                                                            623
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:537:72:

 10041 continue                                                              624
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:538:72:

       call elnetn (parm,no,ni,x,y,w,jd,vq,ne,nx,nlam,flmin,ulam,thr,isd,    627
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:540:72:

 10051 continue                                                              628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:72:

 10031 continue                                                              628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:542:72:

       deallocate(vq)                                                        629
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:543:72:

       return                                                                630
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:544:72:

       end                                                                   631
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:545:72:

       subroutine elnetu  (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,t    634
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:547:72:

       real x(no,ni),y(no),w(no),vp(ni),ulam(nlam)                           635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:548:72:

       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         636
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:549:72:

       integer jd(*),ia(nx),nin(nlam)                                        637
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:552:72:

       allocate(g(1:ni),stat=jerr)                                           642
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:553:72:

       allocate(xm(1:ni),stat=ierr)                                          642
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:554:72:

       jerr=jerr+ierr                                                        643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:555:72:

       allocate(xs(1:ni),stat=ierr)                                          643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:556:72:

       jerr=jerr+ierr                                                        644
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:557:72:

       allocate(ju(1:ni),stat=ierr)                                          644
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:558:72:

       jerr=jerr+ierr                                                        645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:559:72:

       allocate(xv(1:ni),stat=ierr)                                          645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:560:72:

       jerr=jerr+ierr                                                        646
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:561:72:

       allocate(vlam(1:nlam),stat=ierr)                                      646
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:562:72:

       jerr=jerr+ierr                                                        647
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:563:72:

       if(jerr.ne.0) return                                                  648
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:564:72:

       call chkvars(no,ni,x,ju)                                              649
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:565:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                  650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:566:72:

       if(maxval(ju) .gt. 0)goto 10071                                       650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:567:72:

       jerr=7777                                                             650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:568:72:

       return                                                                650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:569:72:

 10071 continue                                                              651
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:570:72:

       call standard(no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)               652
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:571:72:

       if(jerr.ne.0) return                                                  653
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:572:72:

       if(flmin.ge.1.0) vlam=ulam/ys                                         654
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:573:72:

       call elnet1(parm,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x    656
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:575:72:

       if(jerr.gt.0) return                                                  657
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:576:72:

 10080 do 10081 k=1,lmu                                                      657
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:577:72:

       alm(k)=ys*alm(k)                                                      657
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:578:72:

       nk=nin(k)                                                             658
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:579:72:

 10090 do 10091 l=1,nk                                                       658
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:580:72:

       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                          658
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:581:72:

 10091 continue                                                              659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:582:72:

 10092 continue                                                              659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:583:72:

       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                         660
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:584:72:

 10081 continue                                                              661
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:585:72:

 10082 continue                                                              661
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:586:72:

       deallocate(xm,xs,g,ju,xv,vlam)                                        662
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:587:72:

       return                                                                663
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:588:72:

       end                                                                   664
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:589:72:

       subroutine standard (no,ni,x,y,w,isd,ju,g,xm,xs,ym,ys,xv,jerr)        665
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:590:72:

       real x(no,ni),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)                  665
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:591:72:

       integer ju(ni)                                                        666
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:593:72:

       allocate(v(1:no),stat=jerr)                                           669
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:594:72:

       if(jerr.ne.0) return                                                  670
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:595:72:

       w=w/sum(w)                                                            670
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:596:72:

       v=sqrt(w)                                                             671
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:597:72:

 10100 do 10101 j=1,ni                                                       671
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:598:72:

       if(ju(j).eq.0)goto 10101                                              672
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:599:72:

       xm(j)=dot_product(w,x(:,j))                                           672
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:600:72:

       x(:,j)=v*(x(:,j)-xm(j))                                               673
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:601:72:

       xv(j)=dot_product(x(:,j),x(:,j))                                      673
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:602:72:

       if(isd.gt.0) xs(j)=sqrt(xv(j))                                        674
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:603:72:

 10101 continue                                                              675
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:604:72:

 10102 continue                                                              675
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:605:72:

       if(isd .ne. 0)goto 10121                                              675
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:606:72:

       xs=1.0                                                                675
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:607:72:

       goto 10131                                                            676
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:608:72:

 10121 continue                                                              677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:609:72:

 10140 do 10141 j=1,ni                                                       677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:610:72:

       if(ju(j).eq.0)goto 10141                                              677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:611:72:

       x(:,j)=x(:,j)/xs(j)                                                   677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:612:72:

 10141 continue                                                              678
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:613:72:

 10142 continue                                                              678
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:614:72:

       xv=1.0                                                                679
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:615:72:

 10131 continue                                                              680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:616:72:

 10111 continue                                                              680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:617:72:

       ym=dot_product(w,y)                                                   680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:618:72:

       y=v*(y-ym)                                                            680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:619:72:

       ys=sqrt(dot_product(y,y))                                             680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:620:72:

       y=y/ys                                                                680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:621:72:

       g=0.0                                                                 681
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:622:72:

 10150 do 10151 j=1,ni                                                       681
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:623:72:

       if(ju(j).ne.0) g(j)=dot_product(y,x(:,j))                             681
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:624:72:

 10151 continue                                                              682
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:625:72:

 10152 continue                                                              682
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:626:72:

       deallocate(v)                                                         683
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:627:72:

       return                                                                684
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:628:72:

       end                                                                   685
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:629:72:

       subroutine elnet1 (beta,ni,ju,vp,g,no,ne,nx,x,nlam,flmin,ulam,thr,    687
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:631:72:

       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99    688
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:633:72:

       real vp(ni),g(ni),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(    689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:635:72:

       integer ju(ni),ia(nx),kin(nlam)                                       690
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:640:72:

       allocate(a(1:ni),stat=ierr)                                           696
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:641:72:

       jerr=jerr+ierr                                                        697
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:642:72:

       allocate(mm(1:ni),stat=ierr)                                          697
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:643:72:

       jerr=jerr+ierr                                                        698
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:644:72:

       allocate(da(1:ni),stat=ierr)                                          698
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:645:72:

       jerr=jerr+ierr                                                        699
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:646:72:

       if(jerr.ne.0) return                                                  700
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:647:72:

       bta=beta                                                              700
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:648:72:

       omb=1.0-bta                                                           701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:649:72:

       if(flmin .ge. 1.0)goto 10171                                          701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:650:72:

       eqs=max(eps,flmin)                                                    701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:651:72:

       alf=eqs**(1.0/(nlam-1))                                               701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:652:72:

 10171 continue                                                              702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:653:72:

       rsq=0.0                                                               702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:654:72:

       a=0.0                                                                 702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:655:72:

       mm=0                                                                  702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:656:72:

       nlp=0                                                                 702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:657:72:

       nin=nlp                                                               702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:658:72:

       iz=0                                                                  702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:659:72:

       mnl=min(mnlam,nlam)                                                   703
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:660:72:

 10180 do 10181 m=1,nlam                                                     704
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:661:72:

       if(flmin .lt. 1.0)goto 10201                                          704
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:662:72:

       alm=ulam(m)                                                           704
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:663:72:

       goto 10191                                                            705
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:664:72:

 10201 if(m .le. 2)goto 10211                                                705
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:665:72:

       alm=alm*alf                                                           705
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:666:72:

       goto 10191                                                            706
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:667:72:

 10211 if(m .ne. 1)goto 10221                                                706
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:668:72:

       alm=big                                                               706
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:669:72:

       goto 10231                                                            707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:670:72:

 10221 continue                                                              707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:671:72:

       alm=0.0                                                               708
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:672:72:

 10240 do 10241 j=1,ni                                                       708
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:673:72:

       if(ju(j).eq.0)goto 10241                                              708
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:674:72:

       if(vp(j).le.0.0)goto 10241                                            709
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:675:72:

       alm=max(alm,abs(g(j))/vp(j))                                          710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:676:72:

 10241 continue                                                              711
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:677:72:

 10242 continue                                                              711
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:678:72:

       alm=alf*alm/max(bta,1.0e-3)                                           712
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:679:72:

 10231 continue                                                              713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:680:72:

 10191 continue                                                              713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:681:72:

       dem=alm*omb                                                           713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:682:72:

       ab=alm*bta                                                            713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:683:72:

       rsq0=rsq                                                              713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:684:72:

       jz=1                                                                  714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:685:72:

 10250 continue                                                              714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:686:72:

 10251 continue                                                              714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:687:72:

       if(iz*jz.ne.0) go to 10260                                            714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:688:72:

       nlp=nlp+1                                                             714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:689:72:

       dlx=0.0                                                               715
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:690:72:

 10270 do 10271 k=1,ni                                                       715
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:691:72:

       if(ju(k).eq.0)goto 10271                                              716
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:692:72:

       ak=a(k)                                                               716
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:693:72:

       u=g(k)+ak*xv(k)                                                       716
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:694:72:

       v=abs(u)-vp(k)*ab                                                     716
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:695:72:

       a(k)=0.0                                                              717
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:696:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         718
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:697:72:

       if(a(k).eq.ak)goto 10271                                              719
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:698:72:

       if(mm(k) .ne. 0)goto 10291                                            719
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:699:72:

       nin=nin+1                                                             719
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:700:72:

       if(nin.gt.nx)goto 10272                                               720
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:701:72:

 10300 do 10301 j=1,ni                                                       720
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:702:72:

       if(ju(j).eq.0)goto 10301                                              721
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:703:72:

       if(mm(j) .eq. 0)goto 10321                                            721
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:704:72:

       c(j,nin)=c(k,mm(j))                                                   721
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:705:72:

       goto 10301                                                            721
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:706:72:

 10321 continue                                                              722
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:707:72:

       if(j .ne. k)goto 10341                                                722
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:708:72:

       c(j,nin)=xv(j)                                                        722
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:709:72:

       goto 10301                                                            722
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:710:72:

 10341 continue                                                              723
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:711:72:

       c(j,nin)=dot_product(x(:,j),x(:,k))                                   724
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:712:72:

 10301 continue                                                              725
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:713:72:

 10302 continue                                                              725
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:714:72:

       mm(k)=nin                                                             725
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:715:72:

       ia(nin)=k                                                             726
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:716:72:

 10291 continue                                                              727
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:717:72:

       del=a(k)-ak                                                           727
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:718:72:

       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                      728
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:719:72:

       dlx=max(xv(k)*del**2,dlx)                                             729
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:720:72:

 10350 do 10351 j=1,ni                                                       729
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:721:72:

       if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                               729
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:722:72:

 10351 continue                                                              730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:723:72:

 10352 continue                                                              730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:724:72:

 10271 continue                                                              731
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:725:72:

 10272 continue                                                              731
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:726:72:

       if(dlx.lt.thr)goto 10252                                              731
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:727:72:

       if(nin.gt.nx)goto 10252                                               732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:728:72:

       if(nlp .le. maxit)goto 10371                                          732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:729:72:

       jerr=-m                                                               732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:730:72:

       return                                                                732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:731:72:

 10371 continue                                                              733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:732:72:

 10260 continue                                                              733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:733:72:

       iz=1                                                                  733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:734:72:

       da(1:nin)=a(ia(1:nin))                                                734
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:735:72:

 10380 continue                                                              734
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:736:72:

 10381 continue                                                              734
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:737:72:

       nlp=nlp+1                                                             734
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:738:72:

       dlx=0.0                                                               735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:739:72:

 10390 do 10391 l=1,nin                                                      735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:740:72:

       k=ia(l)                                                               735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:741:72:

       ak=a(k)                                                               735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:742:72:

       u=g(k)+ak*xv(k)                                                       735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:743:72:

       v=abs(u)-vp(k)*ab                                                     736
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:744:72:

       a(k)=0.0                                                              737
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:745:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         738
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:746:72:

       if(a(k).eq.ak)goto 10391                                              739
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:747:72:

       del=a(k)-ak                                                           739
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:748:72:

       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                      740
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:749:72:

       dlx=max(xv(k)*del**2,dlx)                                             741
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:750:72:

 10400 do 10401 j=1,nin                                                      741
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:751:72:

       g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del                                  741
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:752:72:

 10401 continue                                                              742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:753:72:

 10402 continue                                                              742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:754:72:

 10391 continue                                                              743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:755:72:

 10392 continue                                                              743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:756:72:

       if(dlx.lt.thr)goto 10382                                              743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:757:72:

       if(nlp .le. maxit)goto 10421                                          743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:758:72:

       jerr=-m                                                               743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:759:72:

       return                                                                743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:760:72:

 10421 continue                                                              744
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:761:72:

       goto 10381                                                            745
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:762:72:

 10382 continue                                                              745
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:763:72:

       da(1:nin)=a(ia(1:nin))-da(1:nin)                                      746
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:764:72:

 10430 do 10431 j=1,ni                                                       746
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:765:72:

       if(mm(j).ne.0)goto 10431                                              747
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:766:72:

       if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))            748
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:767:72:

 10431 continue                                                              749
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:768:72:

 10432 continue                                                              749
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:769:72:

       jz=0                                                                  750
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:770:72:

       goto 10251                                                            751
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:771:72:

 10252 continue                                                              751
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:772:72:

       if(nin .le. nx)goto 10451                                             751
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:773:72:

       jerr=-10000-m                                                         751
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:774:72:

       goto 10182                                                            751
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:775:72:

 10451 continue                                                              752
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:776:72:

       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                 752
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:777:72:

       kin(m)=nin                                                            753
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:778:72:

       rsqo(m)=rsq                                                           753
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:779:72:

       almo(m)=alm                                                           753
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:780:72:

       lmu=m                                                                 754
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:781:72:

       if(m.lt.mnl)goto 10181                                                754
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:782:72:

       if(flmin.ge.1.0)goto 10181                                            755
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:783:72:

       me=0                                                                  755
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:784:72:

 10460 do 10461 j=1,nin                                                      755
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:785:72:

       if(ao(j,m).ne.0.0) me=me+1                                            755
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:786:72:

 10461 continue                                                              755
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:787:72:

 10462 continue                                                              755
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:788:72:

       if(me.gt.ne)goto 10182                                                756
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:789:72:

       if(rsq-rsq0.lt.sml*rsq)goto 10182                                     756
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:790:72:

       if(rsq.gt.rsqmax)goto 10182                                           757
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:791:72:

 10181 continue                                                              758
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:792:72:

 10182 continue                                                              758
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:793:72:

       deallocate(a,mm,c,da)                                                 759
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:794:72:

       return                                                                760
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:795:72:

       end                                                                   761
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:796:72:

       subroutine elnetn (parm,no,ni,x,y,w,jd,vp,ne,nx,nlam,flmin,ulam,th    763
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:798:72:

       real vp(ni),x(no,ni),y(no),w(no),ulam(nlam)                           764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:799:72:

       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         765
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:800:72:

       integer jd(*),ia(nx),nin(nlam)                                        766
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:803:72:

       allocate(xm(1:ni),stat=jerr)                                          771
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:804:72:

       allocate(xs(1:ni),stat=ierr)                                          771
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:805:72:

       jerr=jerr+ierr                                                        772
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:806:72:

       allocate(ju(1:ni),stat=ierr)                                          772
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:807:72:

       jerr=jerr+ierr                                                        773
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:808:72:

       allocate(xv(1:ni),stat=ierr)                                          773
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:809:72:

       jerr=jerr+ierr                                                        774
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:810:72:

       allocate(vlam(1:nlam),stat=ierr)                                      774
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:811:72:

       jerr=jerr+ierr                                                        775
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:812:72:

       if(jerr.ne.0) return                                                  776
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:813:72:

       call chkvars(no,ni,x,ju)                                              777
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:814:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                  778
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:815:72:

       if(maxval(ju) .gt. 0)goto 10481                                       778
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:816:72:

       jerr=7777                                                             778
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:817:72:

       return                                                                778
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:818:72:

 10481 continue                                                              779
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:819:72:

       call standard1(no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)                780
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:820:72:

       if(jerr.ne.0) return                                                  781
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:821:72:

       if(flmin.ge.1.0) vlam=ulam/ys                                         782
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:822:72:

       call elnet2(parm,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,vlam,thr,maxit,x    784
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:824:72:

       if(jerr.gt.0) return                                                  785
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:825:72:

 10490 do 10491 k=1,lmu                                                      785
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:826:72:

       alm(k)=ys*alm(k)                                                      785
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:827:72:

       nk=nin(k)                                                             786
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:828:72:

 10500 do 10501 l=1,nk                                                       786
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:829:72:

       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                          786
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:830:72:

 10501 continue                                                              787
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:831:72:

 10502 continue                                                              787
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:832:72:

       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                         788
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:833:72:

 10491 continue                                                              789
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:834:72:

 10492 continue                                                              789
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:835:72:

       deallocate(xm,xs,ju,xv,vlam)                                          790
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:836:72:

       return                                                                791
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:837:72:

       end                                                                   792
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:838:72:

       subroutine standard1 (no,ni,x,y,w,isd,ju,xm,xs,ym,ys,xv,jerr)         793
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:839:72:

       real x(no,ni),y(no),w(no),xm(ni),xs(ni),xv(ni)                        793
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:840:72:

       integer ju(ni)                                                        794
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:842:72:

       allocate(v(1:no),stat=jerr)                                           797
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:843:72:

       if(jerr.ne.0) return                                                  798
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:844:72:

       w=w/sum(w)                                                            798
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:845:72:

       v=sqrt(w)                                                             799
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:846:72:

 10510 do 10511 j=1,ni                                                       799
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:847:72:

       if(ju(j).eq.0)goto 10511                                              800
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:848:72:

       xm(j)=dot_product(w,x(:,j))                                           800
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:849:72:

       x(:,j)=v*(x(:,j)-xm(j))                                               801
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:850:72:

       xv(j)=dot_product(x(:,j),x(:,j))                                      801
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:851:72:

       if(isd.gt.0) xs(j)=sqrt(xv(j))                                        802
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:852:72:

 10511 continue                                                              803
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:853:72:

 10512 continue                                                              803
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:854:72:

       if(isd .ne. 0)goto 10531                                              803
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:855:72:

       xs=1.0                                                                803
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:856:72:

       goto 10541                                                            804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:857:72:

 10531 continue                                                              804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:858:72:

 10550 do 10551 j=1,ni                                                       804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:859:72:

       if(ju(j).eq.0)goto 10551                                              804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:860:72:

       x(:,j)=x(:,j)/xs(j)                                                   804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:861:72:

 10551 continue                                                              805
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:862:72:

 10552 continue                                                              805
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:863:72:

       xv=1.0                                                                806
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:864:72:

 10541 continue                                                              807
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:865:72:

 10521 continue                                                              807
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:866:72:

       ym=dot_product(w,y)                                                   807
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:867:72:

       y=v*(y-ym)                                                            807
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:868:72:

       ys=sqrt(dot_product(y,y))                                             807
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:869:72:

       y=y/ys                                                                808
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:870:72:

       deallocate(v)                                                         809
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:871:72:

       return                                                                810
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:872:72:

       end                                                                   811
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:873:72:

       subroutine elnet2(beta,ni,ju,vp,y,no,ne,nx,x,nlam,flmin,ulam,thr,m    813
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:875:72:

       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99    814
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:877:72:

       real vp(ni),y(no),x(no,ni),ulam(nlam),ao(nx,nlam),rsqo(nlam),almo(    815
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:879:72:

       integer ju(ni),ia(nx),kin(nlam)                                       816
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:882:72:

       allocate(a(1:ni),stat=jerr)                                           821
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:883:72:

       allocate(mm(1:ni),stat=ierr)                                          821
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:884:72:

       jerr=jerr+ierr                                                        822
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:885:72:

       allocate(g(1:ni),stat=ierr)                                           822
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:886:72:

       jerr=jerr+ierr                                                        823
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:887:72:

       allocate(ix(1:ni),stat=ierr)                                          823
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:888:72:

       jerr=jerr+ierr                                                        824
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:889:72:

       if(jerr.ne.0) return                                                  825
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:890:72:

       bta=beta                                                              825
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:891:72:

       omb=1.0-bta                                                           825
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:892:72:

       ix=0                                                                  826
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:893:72:

       if(flmin .ge. 1.0)goto 10571                                          826
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:894:72:

       eqs=max(eps,flmin)                                                    826
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:895:72:

       alf=eqs**(1.0/(nlam-1))                                               826
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:896:72:

 10571 continue                                                              827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:897:72:

       rsq=0.0                                                               827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:898:72:

       a=0.0                                                                 827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:899:72:

       mm=0                                                                  827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:900:72:

       nlp=0                                                                 827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:901:72:

       nin=nlp                                                               827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:902:72:

       iz=0                                                                  827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:903:72:

       mnl=min(mnlam,nlam)                                                   827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:904:72:

       alm=0.0                                                               828
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:905:72:

 10580 do 10581 j=1,ni                                                       828
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:906:72:

       if(ju(j).eq.0)goto 10581                                              828
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:907:72:

       g(j)=abs(dot_product(y,x(:,j)))                                       828
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:908:72:

 10581 continue                                                              829
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:909:72:

 10582 continue                                                              829
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:910:72:

 10590 do 10591 m=1,nlam                                                     829
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:911:72:

       alm0=alm                                                              830
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:912:72:

       if(flmin .lt. 1.0)goto 10611                                          830
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:913:72:

       alm=ulam(m)                                                           830
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:914:72:

       goto 10601                                                            831
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:915:72:

 10611 if(m .le. 2)goto 10621                                                831
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:916:72:

       alm=alm*alf                                                           831
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:917:72:

       goto 10601                                                            832
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:918:72:

 10621 if(m .ne. 1)goto 10631                                                832
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:919:72:

       alm=big                                                               832
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:920:72:

       goto 10641                                                            833
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:921:72:

 10631 continue                                                              833
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:922:72:

       alm0=0.0                                                              834
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:923:72:

 10650 do 10651 j=1,ni                                                       834
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:924:72:

       if(ju(j).eq.0)goto 10651                                              834
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:925:72:

       if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))                            834
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:926:72:

 10651 continue                                                              835
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:927:72:

 10652 continue                                                              835
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:928:72:

       alm0=alm0/max(bta,1.0e-3)                                             835
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:929:72:

       alm=alf*alm0                                                          836
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:930:72:

 10641 continue                                                              837
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:931:72:

 10601 continue                                                              837
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:932:72:

       dem=alm*omb                                                           837
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:933:72:

       ab=alm*bta                                                            837
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:934:72:

       rsq0=rsq                                                              837
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:935:72:

       jz=1                                                                  838
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:936:72:

       tlam=bta*(2.0*alm-alm0)                                               839
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:937:72:

 10660 do 10661 k=1,ni                                                       839
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:938:72:

       if(ix(k).eq.1)goto 10661                                              839
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:939:72:

       if(ju(k).eq.0)goto 10661                                              840
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:940:72:

       if(g(k).gt.tlam*vp(k)) ix(k)=1                                        841
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:941:72:

 10661 continue                                                              842
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:942:72:

 10662 continue                                                              842
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:943:72:

 10670 continue                                                              842
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:944:72:

 10671 continue                                                              842
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:945:72:

       if(iz*jz.ne.0) go to 10260                                            843
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:946:72:

 10680 continue                                                              843
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:947:72:

       nlp=nlp+1                                                             843
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:948:72:

       dlx=0.0                                                               844
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:949:72:

 10690 do 10691 k=1,ni                                                       844
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:950:72:

       if(ix(k).eq.0)goto 10691                                              844
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:951:72:

       gk=dot_product(y,x(:,k))                                              845
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:952:72:

       ak=a(k)                                                               845
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:953:72:

       u=gk+ak*xv(k)                                                         845
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:954:72:

       v=abs(u)-vp(k)*ab                                                     845
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:955:72:

       a(k)=0.0                                                              846
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:956:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         847
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:957:72:

       if(a(k).eq.ak)goto 10691                                              848
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:958:72:

       if(mm(k) .ne. 0)goto 10711                                            848
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:959:72:

       nin=nin+1                                                             848
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:960:72:

       if(nin.gt.nx)goto 10692                                               849
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:961:72:

       mm(k)=nin                                                             849
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:962:72:

       ia(nin)=k                                                             850
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:963:72:

 10711 continue                                                              851
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:964:72:

       del=a(k)-ak                                                           851
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:965:72:

       rsq=rsq+del*(2.0*gk-del*xv(k))                                        852
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:966:72:

       y=y-del*x(:,k)                                                        852
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:967:72:

       dlx=max(xv(k)*del**2,dlx)                                             853
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:968:72:

 10691 continue                                                              854
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:969:72:

 10692 continue                                                              854
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:970:72:

       if(nin.gt.nx)goto 10672                                               855
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:971:72:

       if(dlx .ge. thr)goto 10731                                            855
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:972:72:

       ixx=0                                                                 856
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:973:72:

 10740 do 10741 k=1,ni                                                       856
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:974:72:

       if(ix(k).eq.1)goto 10741                                              856
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:975:72:

       if(ju(k).eq.0)goto 10741                                              857
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:976:72:

       g(k)=abs(dot_product(y,x(:,k)))                                       858
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:977:72:

       if(g(k) .le. ab*vp(k))goto 10761                                      858
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:978:72:

       ix(k)=1                                                               858
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:979:72:

       ixx=1                                                                 858
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:980:72:

 10761 continue                                                              859
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:981:72:

 10741 continue                                                              860
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:982:72:

 10742 continue                                                              860
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:983:72:

       if(ixx.eq.1) go to 10680                                              861
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:984:72:

       goto 10672                                                            862
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:985:72:

 10731 continue                                                              863
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:986:72:

       if(nlp .le. maxit)goto 10781                                          863
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:987:72:

       jerr=-m                                                               863
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:988:72:

       return                                                                863
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:989:72:

 10781 continue                                                              864
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:990:72:

 10260 continue                                                              864
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:991:72:

       iz=1                                                                  865
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:992:72:

 10790 continue                                                              865
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:993:72:

 10791 continue                                                              865
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:994:72:

       nlp=nlp+1                                                             865
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:995:72:

       dlx=0.0                                                               866
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:996:72:

 10800 do 10801 l=1,nin                                                      866
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:997:72:

       k=ia(l)                                                               866
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:998:72:

       gk=dot_product(y,x(:,k))                                              867
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:999:72:

       ak=a(k)                                                               867
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1000:72:

       u=gk+ak*xv(k)                                                         867
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1001:72:

       v=abs(u)-vp(k)*ab                                                     867
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1002:72:

       a(k)=0.0                                                              868
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1003:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                         869
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1004:72:

       if(a(k).eq.ak)goto 10801                                              870
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1005:72:

       del=a(k)-ak                                                           870
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1006:72:

       rsq=rsq+del*(2.0*gk-del*xv(k))                                        871
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1007:72:

       y=y-del*x(:,k)                                                        871
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1008:72:

       dlx=max(xv(k)*del**2,dlx)                                             872
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1009:72:

 10801 continue                                                              873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1010:72:

 10802 continue                                                              873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1011:72:

       if(dlx.lt.thr)goto 10792                                              873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1012:72:

       if(nlp .le. maxit)goto 10821                                          873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1013:72:

       jerr=-m                                                               873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1014:72:

       return                                                                873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1015:72:

 10821 continue                                                              874
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1016:72:

       goto 10791                                                            875
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1017:72:

 10792 continue                                                              875
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1018:72:

       jz=0                                                                  876
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1019:72:

       goto 10671                                                            877
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1020:72:

 10672 continue                                                              877
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1021:72:

       if(nin .le. nx)goto 10841                                             877
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1022:72:

       jerr=-10000-m                                                         877
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1023:72:

       goto 10592                                                            877
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1024:72:

 10841 continue                                                              878
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1025:72:

       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                 878
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1026:72:

       kin(m)=nin                                                            879
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1027:72:

       rsqo(m)=rsq                                                           879
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1028:72:

       almo(m)=alm                                                           879
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1029:72:

       lmu=m                                                                 880
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1030:72:

       if(m.lt.mnl)goto 10591                                                880
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1031:72:

       if(flmin.ge.1.0)goto 10591                                            881
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1032:72:

       me=0                                                                  881
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1033:72:

 10850 do 10851 j=1,nin                                                      881
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1034:72:

       if(ao(j,m).ne.0.0) me=me+1                                            881
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1035:72:

 10851 continue                                                              881
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1036:72:

 10852 continue                                                              881
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1037:72:

       if(me.gt.ne)goto 10592                                                882
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1038:72:

       if(rsq-rsq0.lt.sml*rsq)goto 10592                                     882
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1039:72:

       if(rsq.gt.rsqmax)goto 10592                                           883
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1040:72:

 10591 continue                                                              884
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1041:72:

 10592 continue                                                              884
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1042:72:

       deallocate(a,mm,g,ix)                                                 885
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1043:72:

       return                                                                886
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1044:72:

       end                                                                   887
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1045:72:

       subroutine chkvars(no,ni,x,ju)                                        888
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1046:72:

       real x(no,ni)                                                         888
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1047:72:

       integer ju(ni)                                                        889
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1048:72:

 10860 do 10861 j=1,ni                                                       889
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1049:72:

       ju(j)=0                                                               889
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1050:72:

       t=x(1,j)                                                              890
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1051:72:

 10870 do 10871 i=2,no                                                       890
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1052:72:

       if(x(i,j).eq.t)goto 10871                                             890
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1053:72:

       ju(j)=1                                                               890
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1054:72:

       goto 10872                                                            890
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1055:72:

 10871 continue                                                              891
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1056:72:

 10872 continue                                                              891
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1057:72:

 10861 continue                                                              892
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1058:72:

 10862 continue                                                              892
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1059:72:

       return                                                                893
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1060:72:

       end                                                                   894
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1061:72:

       subroutine uncomp(ni,ca,ia,nin,a)                                     895
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1062:72:

       real ca(*),a(ni)                                                      895
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1063:72:

       integer ia(*)                                                         896
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1064:72:

       a=0.0                                                                 896
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1065:72:

       if(nin.gt.0) a(ia(1:nin))=ca(1:nin)                                   897
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1066:72:

       return                                                                898
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1067:72:

       end                                                                   899
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1068:72:

       subroutine modval(a0,ca,ia,nin,n,x,f)                                 900
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1069:72:

       real ca(nin),x(n,*),f(n)                                              900
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1070:72:

       integer ia(nin)                                                       901
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1071:72:

       f=a0                                                                  901
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1072:72:

       if(nin.le.0) return                                                   902
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1073:72:

 10880 do 10881 i=1,n                                                        902
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1074:72:

       f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))                       902
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1075:72:

 10881 continue                                                              903
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1076:72:

 10882 continue                                                              903
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1077:72:

       return                                                                904
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1078:72:

       end                                                                   905
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1079:72:

       subroutine spelnet  (ka,parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,fl    908
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1081:72:

       real x(*),y(no),w(no),vp(ni),ulam(nlam)                               909
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1082:72:

       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         910
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1083:72:

       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                            911
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1085:72:

       if(maxval(vp) .gt. 0.0)goto 10901                                     914
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1086:72:

       jerr=10000                                                            914
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1087:72:

       return                                                                914
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1088:72:

 10901 continue                                                              915
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1089:72:

       allocate(vq(1:ni),stat=jerr)                                          915
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1090:72:

       if(jerr.ne.0) return                                                  916
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1091:72:

       vq=max(0.0,vp)                                                        916
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1092:72:

       vq=vq*ni/sum(vq)                                                      917
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1093:72:

       if(ka .ne. 1)goto 10921                                               918
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1094:72:

       call spelnetu  (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam    921
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1096:72:

       goto 10931                                                            922
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1097:72:

 10921 continue                                                              923
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1098:72:

       call spelnetn (parm,no,ni,x,ix,jx,y,w,jd,vq,ne,nx,nlam,flmin,ulam,    926
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1100:72:

 10931 continue                                                              927
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1101:72:

 10911 continue                                                              927
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1102:72:

       deallocate(vq)                                                        928
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1103:72:

       return                                                                929
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1104:72:

       end                                                                   930
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1105:72:

       subroutine spelnetu  (parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmi    933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1107:72:

       real x(*),y(no),w(no),vp(ni),ulam(nlam)                               934
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1108:72:

       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                         935
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1109:72:

       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                            936
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1112:72:

       allocate(g(1:ni),stat=jerr)                                           941
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1113:72:

       allocate(xm(1:ni),stat=ierr)                                          941
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1114:72:

       jerr=jerr+ierr                                                        942
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1115:72:

       allocate(xs(1:ni),stat=ierr)                                          942
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1116:72:

       jerr=jerr+ierr                                                        943
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1117:72:

       allocate(ju(1:ni),stat=ierr)                                          943
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1118:72:

       jerr=jerr+ierr                                                        944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1119:72:

       allocate(xv(1:ni),stat=ierr)                                          944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1120:72:

       jerr=jerr+ierr                                                        945
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1121:72:

       allocate(vlam(1:nlam),stat=ierr)                                      945
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1122:72:

       jerr=jerr+ierr                                                        946
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1123:72:

       if(jerr.ne.0) return                                                  947
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1124:72:

       call spchkvars(no,ni,x,ix,ju)                                         948
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1125:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                  949
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1126:72:

       if(maxval(ju) .gt. 0)goto 10951                                       949
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1127:72:

       jerr=7777                                                             949
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1128:72:

       return                                                                949
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1129:72:

 10951 continue                                                              950
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1130:72:

       call spstandard(no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,jerr)       951
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1131:72:

       if(jerr.ne.0) return                                                  952
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1132:72:

       if(flmin.ge.1.0) vlam=ulam/ys                                         953
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1133:72:

       call spelnet1(parm,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t    955
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1135:72:

       if(jerr.gt.0) return                                                  956
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1136:72:

 10960 do 10961 k=1,lmu                                                      956
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1137:72:

       alm(k)=ys*alm(k)                                                      956
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1138:72:

       nk=nin(k)                                                             957
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1139:72:

 10970 do 10971 l=1,nk                                                       957
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1140:72:

       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                          957
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1141:72:

 10971 continue                                                              958
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1142:72:

 10972 continue                                                              958
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1143:72:

       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                         959
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1144:72:

 10961 continue                                                              960
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1145:72:

 10962 continue                                                              960
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1146:72:

       deallocate(xm,xs,g,ju,xv,vlam)                                        961
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1147:72:

       return                                                                962
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1148:72:

       end                                                                   963
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1149:72:

       subroutine spstandard (no,ni,x,ix,jx,y,w,ju,isd,g,xm,xs,ym,ys,xv,j    964
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1151:72:

       real x(*),y(no),w(no),g(ni),xm(ni),xs(ni),xv(ni)                      964
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1152:72:

       integer ix(*),jx(*),ju(ni)                                            965
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1153:72:

       w=w/sum(w)                                                            966
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1154:72:

 10980 do 10981 j=1,ni                                                       966
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1155:72:

       if(ju(j).eq.0)goto 10981                                              967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1156:72:

       jb=ix(j)                                                              967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1157:72:

       je=ix(j+1)-1                                                          967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1158:72:

       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                              968
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1159:72:

       xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2                  969
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1160:72:

       if(isd.gt.0) xs(j)=sqrt(xv(j))                                        970
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1161:72:

 10981 continue                                                              971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1162:72:

 10982 continue                                                              971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1163:72:

       if(isd .ne. 0)goto 11001                                              971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1164:72:

       xs=1.0                                                                971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1165:72:

       goto 11011                                                            971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1166:72:

 11001 continue                                                              971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1167:72:

       xv=1.0                                                                971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1168:72:

 11011 continue                                                              972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1169:72:

 10991 continue                                                              972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1170:72:

       ym=dot_product(w,y)                                                   972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1171:72:

       y=y-ym                                                                972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1172:72:

       ys=sqrt(dot_product(w,y**2))                                          972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1173:72:

       y=y/ys                                                                972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1174:72:

       g=0.0                                                                 973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1175:72:

 11020 do 11021 j=1,ni                                                       973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1176:72:

       if(ju(j).eq.0)goto 11021                                              973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1177:72:

       jb=ix(j)                                                              973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1178:72:

       je=ix(j+1)-1                                                          974
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1179:72:

       g(j)=dot_product(w(jx(jb:je))*y(jx(jb:je)),x(jb:je))/xs(j)            975
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1180:72:

 11021 continue                                                              976
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1181:72:

 11022 continue                                                              976
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1182:72:

       return                                                                977
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1183:72:

       end                                                                   978
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1184:72:

       subroutine spelnet1(beta,ni,g,no,w,ne,nx,x,ix,jx,ju,vp,nlam,flmin,    980
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1186:72:

       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99    981
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1188:72:

       real g(ni),vp(ni),x(*),ulam(nlam),w(no)                               982
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1189:72:

       real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)           983
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1190:72:

       integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)                           984
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1195:72:

       allocate(a(1:ni),stat=ierr)                                           990
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1196:72:

       jerr=jerr+ierr                                                        991
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1197:72:

       allocate(mm(1:ni),stat=ierr)                                          991
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1198:72:

       jerr=jerr+ierr                                                        992
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1199:72:

       allocate(da(1:ni),stat=ierr)                                          992
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1200:72:

       jerr=jerr+ierr                                                        993
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1201:72:

       if(jerr.ne.0) return                                                  994
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1202:72:

       bta=beta                                                              994
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1203:72:

       omb=1.0-bta                                                           995
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1204:72:

       if(flmin .ge. 1.0)goto 11041                                          995
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1205:72:

       eqs=max(eps,flmin)                                                    995
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1206:72:

       alf=eqs**(1.0/(nlam-1))                                               995
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1207:72:

 11041 continue                                                              996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1208:72:

       rsq=0.0                                                               996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1209:72:

       a=0.0                                                                 996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1210:72:

       mm=0                                                                  996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1211:72:

       nlp=0                                                                 996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1212:72:

       nin=nlp                                                               996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1213:72:

       iz=0                                                                  996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1214:72:

       mnl=min(mnlam,nlam)                                                   997
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1215:72:

 11050 do 11051 m=1,nlam                                                     998
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1216:72:

       if(flmin .lt. 1.0)goto 11071                                          998
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1217:72:

       alm=ulam(m)                                                           998
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1218:72:

       goto 11061                                                            999
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1219:72:

 11071 if(m .le. 2)goto 11081                                                999
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1220:72:

       alm=alm*alf                                                           999
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1221:72:

       goto 11061                                                           1000
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1222:72:

 11081 if(m .ne. 1)goto 11091                                               1000
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1223:72:

       alm=big                                                              1000
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1224:72:

       goto 11101                                                           1001
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1225:72:

 11091 continue                                                             1001
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1226:72:

       alm=0.0                                                              1002
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1227:72:

 11110 do 11111 j=1,ni                                                      1002
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1228:72:

       if(ju(j).eq.0)goto 11111                                             1002
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1229:72:

       if(vp(j).le.0.0)goto 11111                                           1003
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1230:72:

       alm=max(alm,abs(g(j))/vp(j))                                         1004
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1231:72:

 11111 continue                                                             1005
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1232:72:

 11112 continue                                                             1005
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1233:72:

       alm=alf*alm/max(bta,1.0e-3)                                          1006
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1234:72:

 11101 continue                                                             1007
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1235:72:

 11061 continue                                                             1007
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1236:72:

       dem=alm*omb                                                          1007
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1237:72:

       ab=alm*bta                                                           1007
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1238:72:

       rsq0=rsq                                                             1007
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1239:72:

       jz=1                                                                 1008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1240:72:

 11120 continue                                                             1008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1241:72:

 11121 continue                                                             1008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1242:72:

       if(iz*jz.ne.0) go to 10260                                           1008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1243:72:

       nlp=nlp+1                                                            1008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1244:72:

       dlx=0.0                                                              1009
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1245:72:

 11130 do 11131 k=1,ni                                                      1009
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1246:72:

       if(ju(k).eq.0)goto 11131                                             1010
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1247:72:

       ak=a(k)                                                              1010
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1248:72:

       u=g(k)+ak*xv(k)                                                      1010
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1249:72:

       v=abs(u)-vp(k)*ab                                                    1010
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1250:72:

       a(k)=0.0                                                             1011
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1251:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1012
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1252:72:

       if(a(k).eq.ak)goto 11131                                             1013
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1253:72:

       if(mm(k) .ne. 0)goto 11151                                           1013
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1254:72:

       nin=nin+1                                                            1013
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1255:72:

       if(nin.gt.nx)goto 11132                                              1014
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1256:72:

 11160 do 11161 j=1,ni                                                      1014
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1257:72:

       if(ju(j).eq.0)goto 11161                                             1015
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1258:72:

       if(mm(j) .eq. 0)goto 11181                                           1015
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1259:72:

       c(j,nin)=c(k,mm(j))                                                  1015
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1260:72:

       goto 11161                                                           1015
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1261:72:

 11181 continue                                                             1016
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1262:72:

       if(j .ne. k)goto 11201                                               1016
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1263:72:

       c(j,nin)=xv(j)                                                       1016
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1264:72:

       goto 11161                                                           1016
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1265:72:

 11201 continue                                                             1017
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1266:72:

       c(j,nin)=  (row_prod(j,k,ix,jx,x,w)-xm(j)*xm(k))/(xs(j)*xs(k))       1019
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1267:72:

 11161 continue                                                             1020
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1268:72:

 11162 continue                                                             1020
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1269:72:

       mm(k)=nin                                                            1020
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1270:72:

       ia(nin)=k                                                            1021
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1271:72:

 11151 continue                                                             1022
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1272:72:

       del=a(k)-ak                                                          1022
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1273:72:

       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                     1023
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1274:72:

       dlx=max(xv(k)*del**2,dlx)                                            1024
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1275:72:

 11210 do 11211 j=1,ni                                                      1024
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1276:72:

       if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                              1024
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1277:72:

 11211 continue                                                             1025
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1278:72:

 11212 continue                                                             1025
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1279:72:

 11131 continue                                                             1026
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1280:72:

 11132 continue                                                             1026
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1281:72:

       if(dlx.lt.thr)goto 11122                                             1026
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1282:72:

       if(nin.gt.nx)goto 11122                                              1027
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1283:72:

       if(nlp .le. maxit)goto 11231                                         1027
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1284:72:

       jerr=-m                                                              1027
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1285:72:

       return                                                               1027
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1286:72:

 11231 continue                                                             1028
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1287:72:

 10260 continue                                                             1028
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1288:72:

       iz=1                                                                 1028
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1289:72:

       da(1:nin)=a(ia(1:nin))                                               1029
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1290:72:

 11240 continue                                                             1029
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1291:72:

 11241 continue                                                             1029
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1292:72:

       nlp=nlp+1                                                            1029
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1293:72:

       dlx=0.0                                                              1030
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1294:72:

 11250 do 11251 l=1,nin                                                     1030
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1295:72:

       k=ia(l)                                                              1031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1296:72:

       ak=a(k)                                                              1031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1297:72:

       u=g(k)+ak*xv(k)                                                      1031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1298:72:

       v=abs(u)-vp(k)*ab                                                    1031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1299:72:

       a(k)=0.0                                                             1032
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1300:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1033
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1301:72:

       if(a(k).eq.ak)goto 11251                                             1034
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1302:72:

       del=a(k)-ak                                                          1034
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1303:72:

       rsq=rsq+del*(2.0*g(k)-del*xv(k))                                     1035
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1304:72:

       dlx=max(xv(k)*del**2,dlx)                                            1036
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1305:72:

 11260 do 11261 j=1,nin                                                     1036
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1306:72:

       g(ia(j))=g(ia(j))-c(ia(j),mm(k))*del                                 1036
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1307:72:

 11261 continue                                                             1037
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1308:72:

 11262 continue                                                             1037
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1309:72:

 11251 continue                                                             1038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1310:72:

 11252 continue                                                             1038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1311:72:

       if(dlx.lt.thr)goto 11242                                             1038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1312:72:

       if(nlp .le. maxit)goto 11281                                         1038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1313:72:

       jerr=-m                                                              1038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1314:72:

       return                                                               1038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1315:72:

 11281 continue                                                             1039
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1316:72:

       goto 11241                                                           1040
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1317:72:

 11242 continue                                                             1040
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1318:72:

       da(1:nin)=a(ia(1:nin))-da(1:nin)                                     1041
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1319:72:

 11290 do 11291 j=1,ni                                                      1041
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1320:72:

       if(mm(j).ne.0)goto 11291                                             1042
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1321:72:

       if(ju(j).ne.0) g(j)=g(j)-dot_product(da(1:nin),c(j,1:nin))           1043
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1322:72:

 11291 continue                                                             1044
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1323:72:

 11292 continue                                                             1044
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1324:72:

       jz=0                                                                 1045
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1325:72:

       goto 11121                                                           1046
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1326:72:

 11122 continue                                                             1046
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1327:72:

       if(nin .le. nx)goto 11311                                            1046
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1328:72:

       jerr=-10000-m                                                        1046
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1329:72:

       goto 11052                                                           1046
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1330:72:

 11311 continue                                                             1047
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1331:72:

       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                1047
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1332:72:

       kin(m)=nin                                                           1048
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1333:72:

       rsqo(m)=rsq                                                          1048
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1334:72:

       almo(m)=alm                                                          1048
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1335:72:

       lmu=m                                                                1049
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1336:72:

       if(m.lt.mnl)goto 11051                                               1049
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1337:72:

       if(flmin.ge.1.0)goto 11051                                           1050
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1338:72:

       me=0                                                                 1050
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1339:72:

 11320 do 11321 j=1,nin                                                     1050
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1340:72:

       if(ao(j,m).ne.0.0) me=me+1                                           1050
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1341:72:

 11321 continue                                                             1050
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1342:72:

 11322 continue                                                             1050
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1343:72:

       if(me.gt.ne)goto 11052                                               1051
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1344:72:

       if(rsq-rsq0.lt.sml*rsq)goto 11052                                    1051
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1345:72:

       if(rsq.gt.rsqmax)goto 11052                                          1052
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1346:72:

 11051 continue                                                             1053
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1347:72:

 11052 continue                                                             1053
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1348:72:

       deallocate(a,mm,c,da)                                                1054
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1349:72:

       return                                                               1055
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1350:72:

       end                                                                  1056
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1351:72:

       subroutine spelnetn(parm,no,ni,x,ix,jx,y,w,jd,vp,ne,nx,nlam,flmin,   1058
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1353:72:

       real x(*),vp(ni),y(no),w(no),ulam(nlam)                              1059
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1354:72:

       real ca(nx,nlam),a0(nlam),rsq(nlam),alm(nlam)                        1060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1355:72:

       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                           1061
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1358:72:

       allocate(xm(1:ni),stat=jerr)                                         1066
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1359:72:

       allocate(xs(1:ni),stat=ierr)                                         1066
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1360:72:

       jerr=jerr+ierr                                                       1067
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1361:72:

       allocate(ju(1:ni),stat=ierr)                                         1067
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1362:72:

       jerr=jerr+ierr                                                       1068
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1363:72:

       allocate(xv(1:ni),stat=ierr)                                         1068
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1364:72:

       jerr=jerr+ierr                                                       1069
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1365:72:

       allocate(vlam(1:nlam),stat=ierr)                                     1069
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1366:72:

       jerr=jerr+ierr                                                       1070
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1367:72:

       if(jerr.ne.0) return                                                 1071
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1368:72:

       call spchkvars(no,ni,x,ix,ju)                                        1072
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1369:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 1073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1370:72:

       if(maxval(ju) .gt. 0)goto 11341                                      1073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1371:72:

       jerr=7777                                                            1073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1372:72:

       return                                                               1073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1373:72:

 11341 continue                                                             1074
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1374:72:

       call spstandard1(no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,jerr)       1075
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1375:72:

       if(jerr.ne.0) return                                                 1076
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1376:72:

       if(flmin.ge.1.0) vlam=ulam/ys                                        1077
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1377:72:

       call spelnet2(parm,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,vlam,t   1079
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1379:72:

       if(jerr.gt.0) return                                                 1080
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1380:72:

 11350 do 11351 k=1,lmu                                                     1080
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1381:72:

       alm(k)=ys*alm(k)                                                     1080
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1382:72:

       nk=nin(k)                                                            1081
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1383:72:

 11360 do 11361 l=1,nk                                                      1081
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1384:72:

       ca(l,k)=ys*ca(l,k)/xs(ia(l))                                         1081
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1385:72:

 11361 continue                                                             1082
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1386:72:

 11362 continue                                                             1082
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1387:72:

       a0(k)=ym-dot_product(ca(1:nk,k),xm(ia(1:nk)))                        1083
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1388:72:

 11351 continue                                                             1084
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1389:72:

 11352 continue                                                             1084
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1390:72:

       deallocate(xm,xs,ju,xv,vlam)                                         1085
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1391:72:

       return                                                               1086
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1392:72:

       end                                                                  1087
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1393:72:

       subroutine spstandard1 (no,ni,x,ix,jx,y,w,ju,isd,xm,xs,ym,ys,xv,je   1088
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1395:72:

       real x(*),y(no),w(no),xm(ni),xs(ni),xv(ni)                           1088
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1396:72:

       integer ix(*),jx(*),ju(ni)                                           1089
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1397:72:

       w=w/sum(w)                                                           1090
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1398:72:

 11370 do 11371 j=1,ni                                                      1090
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1399:72:

       if(ju(j).eq.0)goto 11371                                             1091
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1400:72:

       jb=ix(j)                                                             1091
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1401:72:

       je=ix(j+1)-1                                                         1091
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1402:72:

       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             1092
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1403:72:

       xv(j)=dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j)**2                 1093
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1404:72:

       if(isd.gt.0) xs(j)=sqrt(xv(j))                                       1094
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1405:72:

 11371 continue                                                             1095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1406:72:

 11372 continue                                                             1095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1407:72:

       if(isd .ne. 0)goto 11391                                             1095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1408:72:

       xs=1.0                                                               1095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1409:72:

       goto 11401                                                           1095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1410:72:

 11391 continue                                                             1095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1411:72:

       xv=1.0                                                               1095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1412:72:

 11401 continue                                                             1096
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1413:72:

 11381 continue                                                             1096
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1414:72:

       ym=dot_product(w,y)                                                  1096
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1415:72:

       y=y-ym                                                               1096
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1416:72:

       ys=sqrt(dot_product(w,y**2))                                         1096
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1417:72:

       y=y/ys                                                               1097
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1418:72:

       return                                                               1098
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1419:72:

       end                                                                  1099
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1420:72:

       subroutine spelnet2(beta,ni,y,w,no,ne,nx,x,ix,jx,ju,vp,nlam,flmin,   1101
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1422:72:

       parameter(sml=1.0e-5, eps=1.0e-6, big=9.9e30, mnlam=5, rsqmax=0.99   1102
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1424:72:

       real y(no),w(no),x(*),vp(ni),ulam(nlam)                              1103
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1425:72:

       real ao(nx,nlam),rsqo(nlam),almo(nlam),xm(ni),xs(ni),xv(ni)          1104
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1426:72:

       integer ix(*),jx(*),ju(ni),ia(nx),kin(nlam)                          1105
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1429:72:

       allocate(a(1:ni),stat=jerr)                                          1110
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1430:72:

       allocate(mm(1:ni),stat=ierr)                                         1110
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1431:72:

       jerr=jerr+ierr                                                       1111
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1432:72:

       allocate(g(1:ni),stat=ierr)                                          1111
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1433:72:

       jerr=jerr+ierr                                                       1112
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1434:72:

       allocate(iy(1:ni),stat=ierr)                                         1112
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1435:72:

       jerr=jerr+ierr                                                       1113
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1436:72:

       if(jerr.ne.0) return                                                 1114
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1437:72:

       bta=beta                                                             1114
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1438:72:

       omb=1.0-bta                                                          1114
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1439:72:

       alm=0.0                                                              1114
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1440:72:

       iy=0                                                                 1115
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1441:72:

       if(flmin .ge. 1.0)goto 11421                                         1115
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1442:72:

       eqs=max(eps,flmin)                                                   1115
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1443:72:

       alf=eqs**(1.0/(nlam-1))                                              1115
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1444:72:

 11421 continue                                                             1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1445:72:

       rsq=0.0                                                              1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1446:72:

       a=0.0                                                                1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1447:72:

       mm=0                                                                 1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1448:72:

       o=0.0                                                                1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1449:72:

       nlp=0                                                                1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1450:72:

       nin=nlp                                                              1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1451:72:

       iz=0                                                                 1116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1452:72:

       mnl=min(mnlam,nlam)                                                  1117
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1453:72:

 11430 do 11431 j=1,ni                                                      1117
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1454:72:

       if(ju(j).eq.0)goto 11431                                             1118
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1455:72:

       jb=ix(j)                                                             1118
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1456:72:

       je=ix(j+1)-1                                                         1119
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1457:72:

       g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j))    1120
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1458:72:

 11431 continue                                                             1121
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1459:72:

 11432 continue                                                             1121
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1460:72:

 11440 do 11441 m=1,nlam                                                    1121
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1461:72:

       alm0=alm                                                             1122
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1462:72:

       if(flmin .lt. 1.0)goto 11461                                         1122
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1463:72:

       alm=ulam(m)                                                          1122
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1464:72:

       goto 11451                                                           1123
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1465:72:

 11461 if(m .le. 2)goto 11471                                               1123
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1466:72:

       alm=alm*alf                                                          1123
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1467:72:

       goto 11451                                                           1124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1468:72:

 11471 if(m .ne. 1)goto 11481                                               1124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1469:72:

       alm=big                                                              1124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1470:72:

       goto 11491                                                           1125
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1471:72:

 11481 continue                                                             1125
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1472:72:

       alm0=0.0                                                             1126
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1473:72:

 11500 do 11501 j=1,ni                                                      1126
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1474:72:

       if(ju(j).eq.0)goto 11501                                             1126
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1475:72:

       if(vp(j).gt.0.0) alm0=max(alm0,g(j)/vp(j))                           1126
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1476:72:

 11501 continue                                                             1127
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1477:72:

 11502 continue                                                             1127
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1478:72:

       alm0=alm0/max(bta,1.0e-3)                                            1127
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1479:72:

       alm=alf*alm0                                                         1128
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1480:72:

 11491 continue                                                             1129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1481:72:

 11451 continue                                                             1129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1482:72:

       dem=alm*omb                                                          1129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1483:72:

       ab=alm*bta                                                           1129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1484:72:

       rsq0=rsq                                                             1129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1485:72:

       jz=1                                                                 1130
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1486:72:

       tlam=bta*(2.0*alm-alm0)                                              1131
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1487:72:

 11510 do 11511 k=1,ni                                                      1131
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1488:72:

       if(iy(k).eq.1)goto 11511                                             1131
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1489:72:

       if(ju(k).eq.0)goto 11511                                             1132
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1490:72:

       if(g(k).gt.tlam*vp(k)) iy(k)=1                                       1133
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1491:72:

 11511 continue                                                             1134
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1492:72:

 11512 continue                                                             1134
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1493:72:

 11520 continue                                                             1134
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1494:72:

 11521 continue                                                             1134
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1495:72:

       if(iz*jz.ne.0) go to 10260                                           1135
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1496:72:

 10680 continue                                                             1135
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1497:72:

       nlp=nlp+1                                                            1135
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1498:72:

       dlx=0.0                                                              1136
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1499:72:

 11530 do 11531 k=1,ni                                                      1136
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1500:72:

       if(iy(k).eq.0)goto 11531                                             1136
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1501:72:

       jb=ix(k)                                                             1136
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1502:72:

       je=ix(k+1)-1                                                         1137
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1503:72:

       gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)           1138
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1504:72:

       ak=a(k)                                                              1138
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1505:72:

       u=gk+ak*xv(k)                                                        1138
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1506:72:

       v=abs(u)-vp(k)*ab                                                    1138
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1507:72:

       a(k)=0.0                                                             1139
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1508:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1140
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1509:72:

       if(a(k).eq.ak)goto 11531                                             1141
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1510:72:

       if(mm(k) .ne. 0)goto 11551                                           1141
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1511:72:

       nin=nin+1                                                            1141
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1512:72:

       if(nin.gt.nx)goto 11532                                              1142
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1513:72:

       mm(k)=nin                                                            1142
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1514:72:

       ia(nin)=k                                                            1143
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1515:72:

 11551 continue                                                             1144
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1516:72:

       del=a(k)-ak                                                          1144
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1517:72:

       rsq=rsq+del*(2.0*gk-del*xv(k))                                       1145
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1518:72:

       y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)                         1146
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1519:72:

       o=o+del*xm(k)/xs(k)                                                  1146
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1520:72:

       dlx=max(xv(k)*del**2,dlx)                                            1147
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1521:72:

 11531 continue                                                             1148
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1522:72:

 11532 continue                                                             1148
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1523:72:

       if(nin.gt.nx)goto 11522                                              1149
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1524:72:

       if(dlx .ge. thr)goto 11571                                           1149
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1525:72:

       ixx=0                                                                1150
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1526:72:

 11580 do 11581 j=1,ni                                                      1150
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1527:72:

       if(iy(j).eq.1)goto 11581                                             1150
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1528:72:

       if(ju(j).eq.0)goto 11581                                             1151
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1529:72:

       jb=ix(j)                                                             1151
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1530:72:

       je=ix(j+1)-1                                                         1152
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1531:72:

       g(j)=abs(dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(j))    1153
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1532:72:

       if(g(j) .le. ab*vp(j))goto 11601                                     1153
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1533:72:

       iy(j)=1                                                              1153
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1534:72:

       ixx=1                                                                1153
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1535:72:

 11601 continue                                                             1154
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1536:72:

 11581 continue                                                             1155
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1537:72:

 11582 continue                                                             1155
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1538:72:

       if(ixx.eq.1) go to 10680                                             1156
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1539:72:

       goto 11522                                                           1157
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1540:72:

 11571 continue                                                             1158
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1541:72:

       if(nlp .le. maxit)goto 11621                                         1158
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1542:72:

       jerr=-m                                                              1158
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1543:72:

       return                                                               1158
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1544:72:

 11621 continue                                                             1159
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1545:72:

 10260 continue                                                             1159
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1546:72:

       iz=1                                                                 1160
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1547:72:

 11630 continue                                                             1160
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1548:72:

 11631 continue                                                             1160
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1549:72:

       nlp=nlp+1                                                            1160
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1550:72:

       dlx=0.0                                                              1161
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1551:72:

 11640 do 11641 l=1,nin                                                     1161
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1552:72:

       k=ia(l)                                                              1161
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1553:72:

       jb=ix(k)                                                             1161
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1554:72:

       je=ix(k+1)-1                                                         1162
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1555:72:

       gk=dot_product(y(jx(jb:je))+o,w(jx(jb:je))*x(jb:je))/xs(k)           1163
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1556:72:

       ak=a(k)                                                              1163
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1557:72:

       u=gk+ak*xv(k)                                                        1163
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1558:72:

       v=abs(u)-vp(k)*ab                                                    1163
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1559:72:

       a(k)=0.0                                                             1164
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1560:72:

       if(v.gt.0.0) a(k)=sign(v,u)/(xv(k)+vp(k)*dem)                        1165
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1561:72:

       if(a(k).eq.ak)goto 11641                                             1166
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1562:72:

       del=a(k)-ak                                                          1166
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1563:72:

       rsq=rsq+del*(2.0*gk-del*xv(k))                                       1167
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1564:72:

       y(jx(jb:je))=y(jx(jb:je))-del*x(jb:je)/xs(k)                         1168
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1565:72:

       o=o+del*xm(k)/xs(k)                                                  1168
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1566:72:

       dlx=max(xv(k)*del**2,dlx)                                            1169
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1567:72:

 11641 continue                                                             1170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1568:72:

 11642 continue                                                             1170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1569:72:

       if(dlx.lt.thr)goto 11632                                             1170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1570:72:

       if(nlp .le. maxit)goto 11661                                         1170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1571:72:

       jerr=-m                                                              1170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1572:72:

       return                                                               1170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1573:72:

 11661 continue                                                             1171
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1574:72:

       goto 11631                                                           1172
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1575:72:

 11632 continue                                                             1172
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1576:72:

       jz=0                                                                 1173
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1577:72:

       goto 11521                                                           1174
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1578:72:

 11522 continue                                                             1174
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1579:72:

       if(nin .le. nx)goto 11681                                            1174
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1580:72:

       jerr=-10000-m                                                        1174
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1581:72:

       goto 11442                                                           1174
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1582:72:

 11681 continue                                                             1175
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1583:72:

       if(nin.gt.0) ao(1:nin,m)=a(ia(1:nin))                                1175
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1584:72:

       kin(m)=nin                                                           1176
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1585:72:

       rsqo(m)=rsq                                                          1176
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1586:72:

       almo(m)=alm                                                          1176
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1587:72:

       lmu=m                                                                1177
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1588:72:

       if(m.lt.mnl)goto 11441                                               1177
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1589:72:

       if(flmin.ge.1.0)goto 11441                                           1178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1590:72:

       me=0                                                                 1178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1591:72:

 11690 do 11691 j=1,nin                                                     1178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1592:72:

       if(ao(j,m).ne.0.0) me=me+1                                           1178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1593:72:

 11691 continue                                                             1178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1594:72:

 11692 continue                                                             1178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1595:72:

       if(me.gt.ne)goto 11442                                               1179
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1596:72:

       if(rsq-rsq0.lt.sml*rsq)goto 11442                                    1179
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1597:72:

       if(rsq.gt.rsqmax)goto 11442                                          1180
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1598:72:

 11441 continue                                                             1181
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1599:72:

 11442 continue                                                             1181
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1600:72:

       deallocate(a,mm,g,iy)                                                1182
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1601:72:

       return                                                               1183
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1602:72:

       end                                                                  1184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1603:72:

       subroutine spchkvars(no,ni,x,ix,ju)                                  1185
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1604:72:

       real x(*)                                                            1185
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1605:72:

       integer ix(*),ju(ni)                                                 1186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1606:72:

 11700 do 11701 j=1,ni                                                      1186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1607:72:

       ju(j)=0                                                              1186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1608:72:

       jb=ix(j)                                                             1186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1609:72:

       nj=ix(j+1)-jb                                                        1186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1610:72:

       if(nj.eq.0)goto 11701                                                1187
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1611:72:

       je=ix(j+1)-1                                                         1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1612:72:

       if(nj .ge. no)goto 11721                                             1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1613:72:

 11730 do 11731 i=jb,je                                                     1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1614:72:

       if(x(i).eq.0.0)goto 11731                                            1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1615:72:

       ju(j)=1                                                              1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1616:72:

       goto 11732                                                           1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1617:72:

 11731 continue                                                             1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1618:72:

 11732 continue                                                             1188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1619:72:

       goto 11741                                                           1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1620:72:

 11721 continue                                                             1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1621:72:

       t=x(jb)                                                              1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1622:72:

 11750 do 11751 i=jb+1,je                                                   1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1623:72:

       if(x(i).eq.t)goto 11751                                              1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1624:72:

       ju(j)=1                                                              1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1625:72:

       goto 11752                                                           1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1626:72:

 11751 continue                                                             1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1627:72:

 11752 continue                                                             1189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1628:72:

 11741 continue                                                             1190
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1629:72:

 11711 continue                                                             1190
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1630:72:

 11701 continue                                                             1191
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1631:72:

 11702 continue                                                             1191
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1632:72:

       return                                                               1192
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1633:72:

       end                                                                  1193
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1634:72:

       subroutine cmodval(a0,ca,ia,nin,x,ix,jx,n,f)                         1194
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1635:72:

       real ca(*),x(*),f(n)                                                 1194
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1636:72:

       integer ia(*),ix(*),jx(*)                                            1195
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1637:72:

       f=a0                                                                 1196
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1638:72:

 11760 do 11761 j=1,nin                                                     1196
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1639:72:

       k=ia(j)                                                              1196
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1640:72:

       kb=ix(k)                                                             1196
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1641:72:

       ke=ix(k+1)-1                                                         1197
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1642:72:

       f(jx(kb:ke))=f(jx(kb:ke))+ca(j)*x(kb:ke)                             1198
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1643:72:

 11761 continue                                                             1199
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1644:72:

 11762 continue                                                             1199
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1645:72:

       return                                                               1200
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1646:72:

       end                                                                  1201
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1647:72:

       function row_prod(i,j,ia,ja,ra,w)                                    1202
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1648:72:

       integer ia(*),ja(*)                                                  1202
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1649:72:

       real ra(*),w(*)                                                      1203
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1650:72:

       row_prod=dot(ra(ia(i)),ra(ia(j)),ja(ia(i)),ja(ia(j)),  ia(i+1)-ia(   1205
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1652:72:

       return                                                               1206
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1653:72:

       end                                                                  1207
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1654:72:

       function dot(x,y,mx,my,nx,ny,w)                                      1208
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1655:72:

       real x(*),y(*),w(*)                                                  1208
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1656:72:

       integer mx(*),my(*)                                                  1209
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1657:72:

       i=1                                                                  1209
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1658:72:

       j=i                                                                  1209
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1659:72:

       s=0.0                                                                1210
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1660:72:

 11770 continue                                                             1210
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1661:72:

 11771 continue                                                             1210
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1662:72:

 11780 continue                                                             1211
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1663:72:

 11781 if(mx(i).ge.my(j))goto 11782                                         1211
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1664:72:

       i=i+1                                                                1211
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1665:72:

       if(i.gt.nx) go to 11790                                              1211
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1666:72:

       goto 11781                                                           1212
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1667:72:

 11782 continue                                                             1212
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1668:72:

       if(mx(i).eq.my(j)) go to 11800                                       1213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1669:72:

 11810 continue                                                             1213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1670:72:

 11811 if(my(j).ge.mx(i))goto 11812                                         1213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1671:72:

       j=j+1                                                                1213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1672:72:

       if(j.gt.ny) go to 11790                                              1213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1673:72:

       goto 11811                                                           1214
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1674:72:

 11812 continue                                                             1214
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1675:72:

       if(mx(i).eq.my(j)) go to 11800                                       1214
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1676:72:

       goto 11771                                                           1215
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1677:72:

 11800 continue                                                             1215
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1678:72:

       s=s+w(mx(i))*x(i)*y(j)                                               1216
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1679:72:

       i=i+1                                                                1216
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1680:72:

       if(i.gt.nx)goto 11772                                                1216
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1681:72:

       j=j+1                                                                1216
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1682:72:

       if(j.gt.ny)goto 11772                                                1217
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1683:72:

       goto 11771                                                           1218
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1684:72:

 11772 continue                                                             1218
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1685:72:

 11790 continue                                                             1218
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1686:72:

       dot=s                                                                1219
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1687:72:

       return                                                               1220
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1688:72:

       end                                                                  1221
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1689:72:

       subroutine lognet (parm,no,ni,nc,x,y,g,jd,vp,ne,nx,nlam,flmin,ulam   1223
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1691:72:

       real x(no,ni),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)             1224
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1692:72:

       real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                  1225
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1693:72:

       integer jd(*),ia(nx),nin(nlam)                                       1226
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1696:72:

       if(maxval(vp) .gt. 0.0)goto 11831                                    1230
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1697:72:

       jerr=10000                                                           1230
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1698:72:

       return                                                               1230
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1699:72:

 11831 continue                                                             1231
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1700:72:

       allocate(ww(1:no),stat=jerr)                                         1232
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1701:72:

       allocate(ju(1:ni),stat=ierr)                                         1232
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1702:72:

       jerr=jerr+ierr                                                       1233
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1703:72:

       allocate(vq(1:ni),stat=ierr)                                         1233
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1704:72:

       jerr=jerr+ierr                                                       1234
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1705:72:

       allocate(xm(1:ni),stat=ierr)                                         1234
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1706:72:

       jerr=jerr+ierr                                                       1235
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1707:72:

       if(isd .le. 0)goto 11851                                             1235
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1708:72:

       allocate(xs(1:ni),stat=ierr)                                         1235
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1709:72:

       jerr=jerr+ierr                                                       1235
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1710:72:

 11851 continue                                                             1236
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1711:72:

       if(jerr.ne.0) return                                                 1237
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1712:72:

       call chkvars(no,ni,x,ju)                                             1238
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1713:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 1239
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1714:72:

       if(maxval(ju) .gt. 0)goto 11871                                      1239
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1715:72:

       jerr=7777                                                            1239
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1716:72:

       return                                                               1239
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1717:72:

 11871 continue                                                             1240
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1718:72:

       vq=max(0.0,vp)                                                       1240
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1719:72:

       vq=vq*ni/sum(vq)                                                     1241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1720:72:

 11880 do 11881 i=1,no                                                      1241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1721:72:

       ww(i)=sum(y(i,:))                                                    1241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1722:72:

       y(i,:)=y(i,:)/ww(i)                                                  1241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1723:72:

 11881 continue                                                             1241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1724:72:

 11882 continue                                                             1241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1725:72:

       sw=sum(ww)                                                           1241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1726:72:

       ww=ww/sw                                                             1242
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1727:72:

       call lstandard1(no,ni,x,ww,ju,isd,xm,xs)                             1243
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1728:72:

       if(nc .ne. 1)goto 11901                                              1244
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1729:72:

       call lognet2n(parm,no,ni,x,y(:,1),g(:,1),ww,ju,vq,ne,nx,nlam,flmin   1246
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1731:72:

       goto 11911                                                           1247
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1732:72:

 11901 continue                                                             1248
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1733:72:

       call lognetn(parm,no,ni,nc,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,th   1250
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1735:72:

 11911 continue                                                             1251
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1736:72:

 11891 continue                                                             1251
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1737:72:

       if(jerr.gt.0) return                                                 1251
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1738:72:

       dev0=2.0*sw*dev0                                                     1252
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1739:72:

 11920 do 11921 k=1,lmu                                                     1252
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1740:72:

       nk=nin(k)                                                            1253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1741:72:

 11930 do 11931 ic=1,nc                                                     1253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1742:72:

       if(isd .le. 0)goto 11951                                             1253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1743:72:

 11960 do 11961 l=1,nk                                                      1253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1744:72:

       ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))                                      1253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1745:72:

 11961 continue                                                             1253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1746:72:

 11962 continue                                                             1253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1747:72:

 11951 continue                                                             1254
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1748:72:

       a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))            1255
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1749:72:

 11931 continue                                                             1256
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1750:72:

 11932 continue                                                             1256
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1751:72:

 11921 continue                                                             1257
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1752:72:

 11922 continue                                                             1257
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1753:72:

       deallocate(ww,ju,vq,xm)                                              1257
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1754:72:

       if(isd.gt.0) deallocate(xs)                                          1258
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1755:72:

       return                                                               1259
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1756:72:

       end                                                                  1260
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1757:72:

       subroutine lstandard1 (no,ni,x,w,ju,isd,xm,xs)                       1261
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1758:72:

       real x(no,ni),w(no),xm(ni),xs(ni)                                    1261
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1759:72:

       integer ju(ni)                                                       1262
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1760:72:

 11970 do 11971 j=1,ni                                                      1262
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1761:72:

       if(ju(j).eq.0)goto 11971                                             1263
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1762:72:

       xm(j)=dot_product(w,x(:,j))                                          1263
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1763:72:

       x(:,j)=x(:,j)-xm(j)                                                  1264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1764:72:

       if(isd .le. 0)goto 11991                                             1264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1765:72:

       xs(j)=sqrt(dot_product(w,x(:,j)**2))                                 1264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1766:72:

       x(:,j)=x(:,j)/xs(j)                                                  1264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1767:72:

 11991 continue                                                             1265
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1768:72:

 11971 continue                                                             1266
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1769:72:

 11972 continue                                                             1266
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1770:72:

       return                                                               1267
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1771:72:

       end                                                                  1268
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1772:72:

       subroutine lognet2n(parm,no,ni,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ulam   1270
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1774:72:

       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1272
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1776:72:

       real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)                    1273
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1777:72:

       real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                         1274
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1778:72:

       integer ju(ni),m(nx),kin(nlam)                                       1275
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1781:72:

       allocate(b(0:ni),stat=jerr)                                          1280
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1782:72:

       allocate(xv(1:ni),stat=ierr)                                         1280
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1783:72:

       jerr=jerr+ierr                                                       1281
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1784:72:

       allocate(ga(1:ni),stat=ierr)                                         1281
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1785:72:

       jerr=jerr+ierr                                                       1282
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1786:72:

       allocate(bs(0:ni),stat=ierr)                                         1282
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1787:72:

       jerr=jerr+ierr                                                       1283
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1788:72:

       allocate(mm(1:ni),stat=ierr)                                         1283
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1789:72:

       jerr=jerr+ierr                                                       1284
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1790:72:

       allocate(ixx(1:ni),stat=ierr)                                        1284
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1791:72:

       jerr=jerr+ierr                                                       1285
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1792:72:

       allocate(r(1:no),stat=ierr)                                          1285
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1793:72:

       jerr=jerr+ierr                                                       1286
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1794:72:

       allocate(v(1:no),stat=ierr)                                          1286
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1795:72:

       jerr=jerr+ierr                                                       1287
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1796:72:

       allocate(q(1:no),stat=ierr)                                          1287
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1797:72:

       jerr=jerr+ierr                                                       1288
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1798:72:

       if(jerr.ne.0) return                                                 1289
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1799:72:

       fmax=log(1.0/pmin-1.0)                                               1289
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1800:72:

       fmin=-fmax                                                           1289
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1801:72:

       vmin=(1.0+pmin)*pmin*(1.0-pmin)                                      1290
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1802:72:

       bta=parm                                                             1290
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1803:72:

       omb=1.0-bta                                                          1291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1804:72:

       q0=dot_product(w,y)                                                  1291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1805:72:

       if(q0 .gt. pmin)goto 12011                                           1291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1806:72:

       jerr=8001                                                            1291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1807:72:

       return                                                               1291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1808:72:

 12011 continue                                                             1292
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1809:72:

       if(q0 .lt. 1.0-pmin)goto 12031                                       1292
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1810:72:

       jerr=9001                                                            1292
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1811:72:

       return                                                               1292
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1812:72:

 12031 continue                                                             1293
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1813:72:

       ixx=0                                                                1293
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1814:72:

       al=0.0                                                               1293
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1815:72:

       bz=log(q0/(1.0-q0))                                                  1294
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1816:72:

       if(nonzero(no,g) .ne. 0)goto 12051                                   1294
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1817:72:

       vi=q0*(1.0-q0)                                                       1294
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1818:72:

       b(0)=bz                                                              1294
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1819:72:

       v=vi*w                                                               1295
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1820:72:

       r=w*(y-q0)                                                           1295
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1821:72:

       q=q0                                                                 1295
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1822:72:

       xmz=vi                                                               1295
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1823:72:

       dev1=-(bz*q0+log(1.0-q0))                                            1296
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1824:72:

       goto 12061                                                           1297
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1825:72:

 12051 continue                                                             1297
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1826:72:

       b(0)=azero(no,y,g,w,jerr)                                            1297
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1827:72:

       if(jerr.ne.0) return                                                 1298
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1828:72:

       q=1.0/(1.0+exp(-b(0)-g))                                             1298
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1829:72:

       v=w*q*(1.0-q)                                                        1298
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1830:72:

       r=w*(y-q)                                                            1298
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1831:72:

       xmz=sum(v)                                                           1299
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1832:72:

       dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))                        1300
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1833:72:

 12061 continue                                                             1301
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1834:72:

 12041 continue                                                             1301
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1835:72:

       if(kopt .le. 0)goto 12081                                            1302
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1836:72:

       if(isd .le. 0)goto 12101                                             1302
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1837:72:

       xv=0.25                                                              1302
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1838:72:

       goto 12111                                                           1303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1839:72:

 12101 continue                                                             1303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1840:72:

 12120 do 12121 j=1,ni                                                      1303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1841:72:

       if(ju(j).ne.0) xv(j)=0.25*dot_product(w,x(:,j)**2)                   1303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1842:72:

 12121 continue                                                             1303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1843:72:

 12122 continue                                                             1303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1844:72:

 12111 continue                                                             1304
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1845:72:

 12091 continue                                                             1304
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1846:72:

 12081 continue                                                             1305
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1847:72:

       dev0=dev1                                                            1306
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1848:72:

 12130 do 12131 i=1,no                                                      1306
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1849:72:

       if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))                        1307
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1850:72:

       if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))              1308
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1851:72:

 12131 continue                                                             1309
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1852:72:

 12132 continue                                                             1309
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1853:72:

       if(flmin .ge. 1.0)goto 12151                                         1309
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1854:72:

       eqs=max(eps,flmin)                                                   1309
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1855:72:

       alf=eqs**(1.0/(nlam-1))                                              1309
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1856:72:

 12151 continue                                                             1310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1857:72:

       m=0                                                                  1310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1858:72:

       mm=0                                                                 1310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1859:72:

       nlp=0                                                                1310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1860:72:

       nin=nlp                                                              1310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1861:72:

       mnl=min(mnlam,nlam)                                                  1310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1862:72:

       bs=0.0                                                               1310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1863:72:

       b(1:ni)=0.0                                                          1311
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1864:72:

       shr=shri*dev0                                                        1312
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1865:72:

 12160 do 12161 j=1,ni                                                      1312
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1866:72:

       if(ju(j).eq.0)goto 12161                                             1312
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1867:72:

       ga(j)=abs(dot_product(r,x(:,j)))                                     1312
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1868:72:

 12161 continue                                                             1313
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1869:72:

 12162 continue                                                             1313
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1870:72:

 12170 do 12171 ilm=1,nlam                                                  1313
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1871:72:

       al0=al                                                               1314
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1872:72:

       if(flmin .lt. 1.0)goto 12191                                         1314
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1873:72:

       al=ulam(ilm)                                                         1314
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1874:72:

       goto 12181                                                           1315
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1875:72:

 12191 if(ilm .le. 2)goto 12201                                             1315
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1876:72:

       al=al*alf                                                            1315
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1877:72:

       goto 12181                                                           1316
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1878:72:

 12201 if(ilm .ne. 1)goto 12211                                             1316
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1879:72:

       al=big                                                               1316
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1880:72:

       goto 12221                                                           1317
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1881:72:

 12211 continue                                                             1317
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1882:72:

       al0=0.0                                                              1318
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1883:72:

 12230 do 12231 j=1,ni                                                      1318
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1884:72:

       if(ju(j).eq.0)goto 12231                                             1318
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1885:72:

       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1318
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1886:72:

 12231 continue                                                             1319
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1887:72:

 12232 continue                                                             1319
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1888:72:

       al0=al0/max(bta,1.0e-3)                                              1319
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1889:72:

       al=alf*al0                                                           1320
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1890:72:

 12221 continue                                                             1321
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1891:72:

 12181 continue                                                             1321
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1892:72:

       al2=al*omb                                                           1321
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1893:72:

       al1=al*bta                                                           1321
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1894:72:

       tlam=bta*(2.0*al-al0)                                                1322
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1895:72:

 12240 do 12241 k=1,ni                                                      1322
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1896:72:

       if(ixx(k).eq.1)goto 12241                                            1322
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1897:72:

       if(ju(k).eq.0)goto 12241                                             1323
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1898:72:

       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     1324
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1899:72:

 12241 continue                                                             1325
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1900:72:

 12242 continue                                                             1325
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1901:72:

 10680 continue                                                             1326
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1902:72:

 12250 continue                                                             1326
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1903:72:

 12251 continue                                                             1326
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1904:72:

       bs(0)=b(0)                                                           1326
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1905:72:

       if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))                                1327
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1906:72:

       if(kopt .ne. 0)goto 12271                                            1328
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1907:72:

 12280 do 12281 j=1,ni                                                      1328
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1908:72:

       if(ixx(j).gt.0) xv(j)=dot_product(v,x(:,j)**2)                       1328
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1909:72:

 12281 continue                                                             1329
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1910:72:

 12282 continue                                                             1329
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1911:72:

 12271 continue                                                             1330
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1912:72:

 12290 continue                                                             1330
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1913:72:

 12291 continue                                                             1330
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1914:72:

       nlp=nlp+1                                                            1330
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1915:72:

       dlx=0.0                                                              1331
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1916:72:

 12300 do 12301 k=1,ni                                                      1331
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1917:72:

       if(ixx(k).eq.0)goto 12301                                            1332
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1918:72:

       bk=b(k)                                                              1332
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1919:72:

       gk=dot_product(r,x(:,k))                                             1333
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1920:72:

       u=gk+xv(k)*b(k)                                                      1333
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1921:72:

       au=abs(u)-vp(k)*al1                                                  1334
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1922:72:

       if(au .gt. 0.0)goto 12321                                            1334
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1923:72:

       b(k)=0.0                                                             1334
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1924:72:

       goto 12331                                                           1335
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1925:72:

 12321 continue                                                             1335
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1926:72:

       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1335
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1927:72:

 12331 continue                                                             1336
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1928:72:

 12311 continue                                                             1336
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1929:72:

       d=b(k)-bk                                                            1336
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1930:72:

       if(abs(d).le.0.0)goto 12301                                          1336
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1931:72:

       dlx=max(dlx,xv(k)*d**2)                                              1337
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1932:72:

       r=r-d*v*x(:,k)                                                       1338
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1933:72:

       if(mm(k) .ne. 0)goto 12351                                           1338
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1934:72:

       nin=nin+1                                                            1338
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1935:72:

       if(nin.gt.nx)goto 12302                                              1339
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1936:72:

       mm(k)=nin                                                            1339
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1937:72:

       m(nin)=k                                                             1340
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1938:72:

 12351 continue                                                             1341
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1939:72:

 12301 continue                                                             1342
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1940:72:

 12302 continue                                                             1342
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1941:72:

       if(nin.gt.nx)goto 12292                                              1343
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1942:72:

       d=sum(r)/xmz                                                         1344
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1943:72:

       if(d .eq. 0.0)goto 12371                                             1344
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1944:72:

       b(0)=b(0)+d                                                          1344
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1945:72:

       dlx=max(dlx,xmz*d**2)                                                1344
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1946:72:

       r=r-d*v                                                              1344
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1947:72:

 12371 continue                                                             1345
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1948:72:

       if(dlx.lt.shr)goto 12292                                             1345
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1949:72:

       if(nlp .le. maxit)goto 12391                                         1345
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1950:72:

       jerr=-ilm                                                            1345
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1951:72:

       return                                                               1345
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1952:72:

 12391 continue                                                             1346
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1953:72:

 12400 continue                                                             1346
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1954:72:

 12401 continue                                                             1346
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1955:72:

       nlp=nlp+1                                                            1346
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1956:72:

       dlx=0.0                                                              1347
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1957:72:

 12410 do 12411 l=1,nin                                                     1347
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1958:72:

       k=m(l)                                                               1347
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1959:72:

       bk=b(k)                                                              1348
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1960:72:

       gk=dot_product(r,x(:,k))                                             1349
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1961:72:

       u=gk+xv(k)*b(k)                                                      1349
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1962:72:

       au=abs(u)-vp(k)*al1                                                  1350
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1963:72:

       if(au .gt. 0.0)goto 12431                                            1350
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1964:72:

       b(k)=0.0                                                             1350
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1965:72:

       goto 12441                                                           1351
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1966:72:

 12431 continue                                                             1351
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1967:72:

       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1351
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1968:72:

 12441 continue                                                             1352
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1969:72:

 12421 continue                                                             1352
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1970:72:

       d=b(k)-bk                                                            1352
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1971:72:

       if(abs(d).le.0.0)goto 12411                                          1352
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1972:72:

       dlx=max(dlx,xv(k)*d**2)                                              1353
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1973:72:

       r=r-d*v*x(:,k)                                                       1354
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1974:72:

 12411 continue                                                             1355
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1975:72:

 12412 continue                                                             1355
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1976:72:

       d=sum(r)/xmz                                                         1356
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1977:72:

       if(d .eq. 0.0)goto 12461                                             1356
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1978:72:

       b(0)=b(0)+d                                                          1356
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1979:72:

       dlx=max(dlx,xmz*d**2)                                                1356
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1980:72:

       r=r-d*v                                                              1356
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1981:72:

 12461 continue                                                             1357
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1982:72:

       if(dlx.lt.shr)goto 12402                                             1357
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1983:72:

       if(nlp .le. maxit)goto 12481                                         1357
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1984:72:

       jerr=-ilm                                                            1357
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1985:72:

       return                                                               1357
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1986:72:

 12481 continue                                                             1358
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1987:72:

       goto 12401                                                           1359
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1988:72:

 12402 continue                                                             1359
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1989:72:

       goto 12291                                                           1360
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1990:72:

 12292 continue                                                             1360
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1991:72:

       if(nin.gt.nx)goto 12252                                              1361
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1992:72:

 12490 do 12491 i=1,no                                                      1361
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1993:72:

       fi=b(0)+g(i)                                                         1362
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1994:72:

       if(nin.gt.0) fi=fi+dot_product(b(m(1:nin)),x(i,m(1:nin)))            1363
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1995:72:

       if(fi .ge. fmin)goto 12511                                           1363
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1996:72:

       q(i)=0.0                                                             1363
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1997:72:

       goto 12501                                                           1363
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1998:72:

 12511 if(fi .le. fmax)goto 12521                                           1363
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:1999:72:

       q(i)=1.0                                                             1363
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2000:72:

       goto 12531                                                           1364
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2001:72:

 12521 continue                                                             1364
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2002:72:

       q(i)=1.0/(1.0+exp(-fi))                                              1364
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2003:72:

 12531 continue                                                             1365
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2004:72:

 12501 continue                                                             1365
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2005:72:

 12491 continue                                                             1366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2006:72:

 12492 continue                                                             1366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2007:72:

       v=w*q*(1.0-q)                                                        1366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2008:72:

       xmz=sum(v)                                                           1366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2009:72:

       if(xmz.le.vmin)goto 12252                                            1366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2010:72:

       r=w*(y-q)                                                            1367
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2011:72:

       if(xmz*(b(0)-bs(0))**2 .ge. shr)goto 12551                           1367
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2012:72:

       ix=0                                                                 1368
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2013:72:

 12560 do 12561 j=1,nin                                                     1368
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2014:72:

       k=m(j)                                                               1369
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2015:72:

       if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 12561                           1369
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2016:72:

       ix=1                                                                 1369
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2017:72:

       goto 12562                                                           1370
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2018:72:

 12561 continue                                                             1371
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2019:72:

 12562 continue                                                             1371
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2020:72:

       if(ix .ne. 0)goto 12581                                              1372
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2021:72:

 12590 do 12591 k=1,ni                                                      1372
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2022:72:

       if(ixx(k).eq.1)goto 12591                                            1372
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2023:72:

       if(ju(k).eq.0)goto 12591                                             1373
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2024:72:

       ga(k)=abs(dot_product(r,x(:,k)))                                     1374
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2025:72:

       if(ga(k) .le. al1*vp(k))goto 12611                                   1374
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2026:72:

       ixx(k)=1                                                             1374
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2027:72:

       ix=1                                                                 1374
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2028:72:

 12611 continue                                                             1375
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2029:72:

 12591 continue                                                             1376
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2030:72:

 12592 continue                                                             1376
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2031:72:

       if(ix.eq.1) go to 10680                                              1377
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2032:72:

       goto 12252                                                           1378
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2033:72:

 12581 continue                                                             1379
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2034:72:

 12551 continue                                                             1380
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2035:72:

       goto 12251                                                           1381
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2036:72:

 12252 continue                                                             1381
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2037:72:

       if(nin .le. nx)goto 12631                                            1381
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2038:72:

       jerr=-10000-ilm                                                      1381
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2039:72:

       goto 12172                                                           1381
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2040:72:

 12631 continue                                                             1382
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2041:72:

       if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))                                1382
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2042:72:

       kin(ilm)=nin                                                         1383
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2043:72:

       a0(ilm)=b(0)                                                         1383
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2044:72:

       alm(ilm)=al                                                          1383
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2045:72:

       lmu=ilm                                                              1384
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2046:72:

       devi=dev2(no,w,y,q,pmin)                                             1385
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2047:72:

       dev(ilm)=(dev1-devi)/dev0                                            1385
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2048:72:

       if(xmz.le.vmin)goto 12172                                            1386
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2049:72:

       if(ilm.lt.mnl)goto 12171                                             1386
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2050:72:

       if(flmin.ge.1.0)goto 12171                                           1387
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2051:72:

       me=0                                                                 1387
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2052:72:

 12640 do 12641 j=1,nin                                                     1387
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2053:72:

       if(a(j,ilm).ne.0.0) me=me+1                                          1387
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2054:72:

 12641 continue                                                             1387
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2055:72:

 12642 continue                                                             1387
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2056:72:

       if(me.gt.ne)goto 12172                                               1388
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2057:72:

       if(dev(ilm).gt.devmax)goto 12172                                     1388
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2058:72:

       if(dev(ilm)-dev(ilm-1).lt.sml)goto 12172                             1389
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2059:72:

 12171 continue                                                             1390
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2060:72:

 12172 continue                                                             1390
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2061:72:

       g=log(q/(1.0-q))                                                     1391
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2062:72:

       deallocate(b,bs,v,r,xv,q,mm,ga,ixx)                                  1392
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2063:72:

       return                                                               1393
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2064:72:

       end                                                                  1394
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2065:72:

       function dev2(n,w,y,p,pmin)                                          1395
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2066:72:

       real w(n),y(n),p(n)                                                  1396
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2067:72:

       pmax=1.0-pmin                                                        1396
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2068:72:

       s=0.0                                                                1397
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2069:72:

 12650 do 12651 i=1,n                                                       1397
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2070:72:

       pi=min(max(pmin,p(i)),pmax)                                          1398
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2071:72:

       s=s-w(i)*(y(i)*log(pi)+(1.0-y(i))*log(1.0-pi))                       1399
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2072:72:

 12651 continue                                                             1400
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2073:72:

 12652 continue                                                             1400
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2074:72:

       dev2=s                                                               1401
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2075:72:

       return                                                               1402
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2076:72:

       end                                                                  1403
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2077:72:

       function azero(n,y,g,q,jerr)                                         1404
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2078:72:

       parameter(eps=1.0e-7)                                                1405
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2079:72:

       real y(n),g(n),q(n)                                                  1406
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2081:72:

       allocate(e(1:n),stat=jerr)                                           1410
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2082:72:

       allocate(p(1:n),stat=ierr)                                           1410
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2083:72:

       jerr=jerr+ierr                                                       1411
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2084:72:

       allocate(w(1:n),stat=ierr)                                           1411
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2085:72:

       jerr=jerr+ierr                                                       1412
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2086:72:

       if(jerr.ne.0) return                                                 1413
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2087:72:

       az=0.0                                                               1413
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2088:72:

       e=exp(-g)                                                            1413
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2089:72:

       qy=dot_product(q,y)                                                  1413
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2090:72:

       p=1.0/(1.0+e)                                                        1414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2091:72:

 12660 continue                                                             1414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2092:72:

 12661 continue                                                             1414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2093:72:

       w=q*p*(1.0-p)                                                        1415
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2094:72:

       d=(qy-dot_product(q,p))/sum(w)                                       1415
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2095:72:

       az=az+d                                                              1415
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2096:72:

       if(abs(d).lt.eps)goto 12662                                          1416
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2097:72:

       ea0=exp(-az)                                                         1416
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2098:72:

       p=1.0/(1.0+ea0*e)                                                    1417
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2099:72:

       goto 12661                                                           1418
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2100:72:

 12662 continue                                                             1418
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2101:72:

       azero=az                                                             1419
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2102:72:

       deallocate(e,p,w)                                                    1420
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2103:72:

       return                                                               1421
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2104:72:

       end                                                                  1422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2105:72:

       subroutine lognetn(parm,no,ni,nc,x,y,g,w,ju,vp,ne,nx,nlam,flmin,ul   1424
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2107:72:

       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1426
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2109:72:

       real x(no,ni),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam)              1427
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2110:72:

       real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                   1428
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2111:72:

       integer ju(ni),m(nx),kin(nlam)                                       1429
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2121:72:

       allocate(r(1:no),stat=ierr)                                          1440
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2122:72:

       jerr=jerr+ierr                                                       1441
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2123:72:

       allocate(v(1:no),stat=ierr)                                          1441
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2124:72:

       jerr=jerr+ierr                                                       1442
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2125:72:

       allocate(mm(1:ni),stat=ierr)                                         1442
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2126:72:

       jerr=jerr+ierr                                                       1443
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2127:72:

       allocate(is(1:max(nc,ni)),stat=ierr)                                 1443
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2128:72:

       jerr=jerr+ierr                                                       1444
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2129:72:

       allocate(sxp(1:no),stat=ierr)                                        1444
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2130:72:

       jerr=jerr+ierr                                                       1445
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2131:72:

       allocate(sxpl(1:no),stat=ierr)                                       1445
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2132:72:

       jerr=jerr+ierr                                                       1446
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2133:72:

       allocate(di(1:no),stat=ierr)                                         1446
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2134:72:

       jerr=jerr+ierr                                                       1447
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2135:72:

       allocate(ga(1:ni),stat=ierr)                                         1447
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2136:72:

       jerr=jerr+ierr                                                       1448
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2137:72:

       allocate(ixx(1:ni),stat=ierr)                                        1448
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2138:72:

       jerr=jerr+ierr                                                       1449
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2139:72:

       if(jerr.ne.0) return                                                 1450
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2140:72:

       pmax=1.0-pmin                                                        1450
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2141:72:

       emin=pmin/pmax                                                       1450
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2142:72:

       emax=1.0/emin                                                        1451
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2143:72:

       pfm=(1.0+pmin)*pmin                                                  1451
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2144:72:

       pfx=(1.0-pmin)*pmax                                                  1451
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2145:72:

       vmin=pfm*pmax                                                        1452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2146:72:

       bta=parm                                                             1452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2147:72:

       omb=1.0-bta                                                          1452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2148:72:

       dev1=0.0                                                             1452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2149:72:

       dev0=0.0                                                             1453
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2150:72:

 12670 do 12671 ic=1,nc                                                     1453
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2151:72:

       q0=dot_product(w,y(:,ic))                                            1454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2152:72:

       if(q0 .gt. pmin)goto 12691                                           1454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2153:72:

       jerr =8000+ic                                                        1454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2154:72:

       return                                                               1454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2155:72:

 12691 continue                                                             1455
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2156:72:

       if(q0 .lt. 1.0-pmin)goto 12711                                       1455
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2157:72:

       jerr =9000+ic                                                        1455
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2158:72:

       return                                                               1455
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2159:72:

 12711 continue                                                             1456
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2160:72:

       b(0,ic)=log(q0)                                                      1456
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2161:72:

       dev1=dev1-q0*b(0,ic)                                                 1456
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2162:72:

       b(1:ni,ic)=0.0                                                       1457
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2163:72:

 12671 continue                                                             1458
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2164:72:

 12672 continue                                                             1458
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2165:72:

       ixx=0                                                                1458
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2166:72:

       al=0.0                                                               1459
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2167:72:

       if(nonzero(no*nc,g) .ne. 0)goto 12731                                1460
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2168:72:

       b(0,:)=b(0,:)-sum(b(0,:))/nc                                         1460
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2169:72:

       sxp=0.0                                                              1461
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2170:72:

 12740 do 12741 ic=1,nc                                                     1461
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2171:72:

       q(:,ic)=exp(b(0,ic))                                                 1461
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2172:72:

       sxp=sxp+q(:,ic)                                                      1461
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2173:72:

 12741 continue                                                             1462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2174:72:

 12742 continue                                                             1462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2175:72:

       goto 12751                                                           1463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2176:72:

 12731 continue                                                             1463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2177:72:

 12760 do 12761 i=1,no                                                      1463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2178:72:

       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         1463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2179:72:

 12761 continue                                                             1463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2180:72:

 12762 continue                                                             1463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2181:72:

       sxp=0.0                                                              1464
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2182:72:

       call kazero(nc,no,y,g,w,b(0,:),jerr)                                 1464
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2183:72:

       if(jerr.ne.0) return                                                 1465
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2184:72:

       dev1=0.0                                                             1466
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2185:72:

 12770 do 12771 ic=1,nc                                                     1466
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2186:72:

       q(:,ic)=b(0,ic)+g(:,ic)                                              1467
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2187:72:

       dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))                             1468
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2188:72:

       q(:,ic)=exp(q(:,ic))                                                 1468
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2189:72:

       sxp=sxp+q(:,ic)                                                      1469
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2190:72:

 12771 continue                                                             1470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2191:72:

 12772 continue                                                             1470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2192:72:

       sxpl=w*log(sxp)                                                      1470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2193:72:

 12780 do 12781 ic=1,nc                                                     1470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2194:72:

       dev1=dev1+dot_product(y(:,ic),sxpl)                                  1470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2195:72:

 12781 continue                                                             1471
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2196:72:

 12782 continue                                                             1471
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2197:72:

 12751 continue                                                             1472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2198:72:

 12721 continue                                                             1472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2199:72:

 12790 do 12791 ic=1,nc                                                     1472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2200:72:

 12800 do 12801 i=1,no                                                      1472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2201:72:

       if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))               1472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2202:72:

 12801 continue                                                             1472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2203:72:

 12802 continue                                                             1472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2204:72:

 12791 continue                                                             1473
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2205:72:

 12792 continue                                                             1473
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2206:72:

       dev0=dev0+dev1                                                       1474
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2207:72:

       if(kopt .le. 0)goto 12821                                            1475
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2208:72:

       if(isd .le. 0)goto 12841                                             1475
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2209:72:

       xv=0.25                                                              1475
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2210:72:

       goto 12851                                                           1476
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2211:72:

 12841 continue                                                             1476
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2212:72:

 12860 do 12861 j=1,ni                                                      1476
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2213:72:

       if(ju(j).ne.0) xv(j,:)=0.25*dot_product(w,x(:,j)**2)                 1476
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2214:72:

 12861 continue                                                             1476
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2215:72:

 12862 continue                                                             1476
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2216:72:

 12851 continue                                                             1477
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2217:72:

 12831 continue                                                             1477
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2218:72:

 12821 continue                                                             1478
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2219:72:

       if(flmin .ge. 1.0)goto 12881                                         1478
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2220:72:

       eqs=max(eps,flmin)                                                   1478
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2221:72:

       alf=eqs**(1.0/(nlam-1))                                              1478
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2222:72:

 12881 continue                                                             1479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2223:72:

       m=0                                                                  1479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2224:72:

       mm=0                                                                 1479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2225:72:

       nin=0                                                                1479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2226:72:

       nlp=0                                                                1479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2227:72:

       mnl=min(mnlam,nlam)                                                  1479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2228:72:

       bs=0.0                                                               1479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2229:72:

       shr=shri*dev0                                                        1480
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2230:72:

       ga=0.0                                                               1481
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2231:72:

 12890 do 12891 ic=1,nc                                                     1481
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2232:72:

       r=w*(y(:,ic)-q(:,ic)/sxp)                                            1482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2233:72:

 12900 do 12901 j=1,ni                                                      1482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2234:72:

       if(ju(j).ne.0) ga(j)=max(ga(j),abs(dot_product(r,x(:,j))))           1482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2235:72:

 12901 continue                                                             1483
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2236:72:

 12902 continue                                                             1483
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2237:72:

 12891 continue                                                             1484
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2238:72:

 12892 continue                                                             1484
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2239:72:

 12910 do 12911 ilm=1,nlam                                                  1484
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2240:72:

       al0=al                                                               1485
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2241:72:

       if(flmin .lt. 1.0)goto 12931                                         1485
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2242:72:

       al=ulam(ilm)                                                         1485
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2243:72:

       goto 12921                                                           1486
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2244:72:

 12931 if(ilm .le. 2)goto 12941                                             1486
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2245:72:

       al=al*alf                                                            1486
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2246:72:

       goto 12921                                                           1487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2247:72:

 12941 if(ilm .ne. 1)goto 12951                                             1487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2248:72:

       al=big                                                               1487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2249:72:

       goto 12961                                                           1488
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2250:72:

 12951 continue                                                             1488
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2251:72:

       al0=0.0                                                              1489
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2252:72:

 12970 do 12971 j=1,ni                                                      1489
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2253:72:

       if(ju(j).eq.0)goto 12971                                             1489
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2254:72:

       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1489
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2255:72:

 12971 continue                                                             1490
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2256:72:

 12972 continue                                                             1490
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2257:72:

       al0=al0/max(bta,1.0e-3)                                              1490
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2258:72:

       al=alf*al0                                                           1491
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2259:72:

 12961 continue                                                             1492
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2260:72:

 12921 continue                                                             1492
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2261:72:

       al2=al*omb                                                           1492
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2262:72:

       al1=al*bta                                                           1492
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2263:72:

       tlam=bta*(2.0*al-al0)                                                1493
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2264:72:

 12980 do 12981 k=1,ni                                                      1493
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2265:72:

       if(ixx(k).eq.1)goto 12981                                            1493
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2266:72:

       if(ju(k).eq.0)goto 12981                                             1494
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2267:72:

       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     1495
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2268:72:

 12981 continue                                                             1496
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2269:72:

 12982 continue                                                             1496
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2270:72:

 10680 continue                                                             1497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2271:72:

 12990 continue                                                             1497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2272:72:

 12991 continue                                                             1497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2273:72:

       ix=0                                                                 1497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2274:72:

       jx=ix                                                                1497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2275:72:

       ig=0                                                                 1498
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2276:72:

 13000 do 13001 ic=1,nc                                                     1498
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2277:72:

       bs(0,ic)=b(0,ic)                                                     1499
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2278:72:

       if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)                          1500
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2279:72:

       xmz=0.0                                                              1501
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2280:72:

 13010 do 13011 i=1,no                                                      1501
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2281:72:

       pic=q(i,ic)/sxp(i)                                                   1502
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2282:72:

       if(pic .ge. pfm)goto 13031                                           1502
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2283:72:

       pic=0.0                                                              1502
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2284:72:

       v(i)=0.0                                                             1502
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2285:72:

       goto 13021                                                           1503
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2286:72:

 13031 if(pic .le. pfx)goto 13041                                           1503
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2287:72:

       pic=1.0                                                              1503
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2288:72:

       v(i)=0.0                                                             1503
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2289:72:

       goto 13051                                                           1504
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2290:72:

 13041 continue                                                             1504
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2291:72:

       v(i)=w(i)*pic*(1.0-pic)                                              1504
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2292:72:

       xmz=xmz+v(i)                                                         1504
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2293:72:

 13051 continue                                                             1505
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2294:72:

 13021 continue                                                             1505
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2295:72:

       r(i)=w(i)*(y(i,ic)-pic)                                              1506
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2296:72:

 13011 continue                                                             1507
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2297:72:

 13012 continue                                                             1507
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2298:72:

       if(xmz.le.vmin)goto 13001                                            1507
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2299:72:

       ig=1                                                                 1508
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2300:72:

       if(kopt .ne. 0)goto 13071                                            1509
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2301:72:

 13080 do 13081 j=1,ni                                                      1509
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2302:72:

       if(ixx(j).gt.0) xv(j,ic)=dot_product(v,x(:,j)**2)                    1509
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2303:72:

 13081 continue                                                             1510
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2304:72:

 13082 continue                                                             1510
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2305:72:

 13071 continue                                                             1511
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2306:72:

 13090 continue                                                             1511
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2307:72:

 13091 continue                                                             1511
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2308:72:

       nlp=nlp+1                                                            1511
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2309:72:

       dlx=0.0                                                              1512
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2310:72:

 13100 do 13101 k=1,ni                                                      1512
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2311:72:

       if(ixx(k).eq.0)goto 13101                                            1513
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2312:72:

       bk=b(k,ic)                                                           1513
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2313:72:

       gk=dot_product(r,x(:,k))                                             1514
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2314:72:

       u=gk+xv(k,ic)*b(k,ic)                                                1514
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2315:72:

       au=abs(u)-vp(k)*al1                                                  1515
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2316:72:

       if(au .gt. 0.0)goto 13121                                            1515
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2317:72:

       b(k,ic)=0.0                                                          1515
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2318:72:

       goto 13131                                                           1516
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2319:72:

 13121 continue                                                             1516
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2320:72:

       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              1516
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2321:72:

 13131 continue                                                             1517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2322:72:

 13111 continue                                                             1517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2323:72:

       d=b(k,ic)-bk                                                         1517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2324:72:

       if(abs(d).le.0.0)goto 13101                                          1518
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2325:72:

       dlx=max(dlx,xv(k,ic)*d**2)                                           1518
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2326:72:

       r=r-d*v*x(:,k)                                                       1519
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2327:72:

       if(mm(k) .ne. 0)goto 13151                                           1519
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2328:72:

       nin=nin+1                                                            1520
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2329:72:

       if(nin .le. nx)goto 13171                                            1520
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2330:72:

       jx=1                                                                 1520
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2331:72:

       goto 13102                                                           1520
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2332:72:

 13171 continue                                                             1521
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2333:72:

       mm(k)=nin                                                            1521
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2334:72:

       m(nin)=k                                                             1522
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2335:72:

 13151 continue                                                             1523
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2336:72:

 13101 continue                                                             1524
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2337:72:

 13102 continue                                                             1524
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2338:72:

       if(jx.gt.0)goto 13092                                                1525
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2339:72:

       d=sum(r)/xmz                                                         1526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2340:72:

       if(d .eq. 0.0)goto 13191                                             1526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2341:72:

       b(0,ic)=b(0,ic)+d                                                    1526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2342:72:

       dlx=max(dlx,xmz*d**2)                                                1526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2343:72:

       r=r-d*v                                                              1526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2344:72:

 13191 continue                                                             1527
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2345:72:

       if(dlx.lt.shr)goto 13092                                             1528
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2346:72:

       if(nlp .le. maxit)goto 13211                                         1528
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2347:72:

       jerr=-ilm                                                            1528
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2348:72:

       return                                                               1528
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2349:72:

 13211 continue                                                             1529
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2350:72:

 13220 continue                                                             1529
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2351:72:

 13221 continue                                                             1529
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2352:72:

       nlp=nlp+1                                                            1529
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2353:72:

       dlx=0.0                                                              1530
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2354:72:

 13230 do 13231 l=1,nin                                                     1530
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2355:72:

       k=m(l)                                                               1530
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2356:72:

       bk=b(k,ic)                                                           1531
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2357:72:

       gk=dot_product(r,x(:,k))                                             1532
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2358:72:

       u=gk+xv(k,ic)*b(k,ic)                                                1532
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2359:72:

       au=abs(u)-vp(k)*al1                                                  1533
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2360:72:

       if(au .gt. 0.0)goto 13251                                            1533
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2361:72:

       b(k,ic)=0.0                                                          1533
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2362:72:

       goto 13261                                                           1534
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2363:72:

 13251 continue                                                             1534
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2364:72:

       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              1534
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2365:72:

 13261 continue                                                             1535
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2366:72:

 13241 continue                                                             1535
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2367:72:

       d=b(k,ic)-bk                                                         1535
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2368:72:

       if(abs(d).le.0.0)goto 13231                                          1536
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2369:72:

       dlx=max(dlx,xv(k,ic)*d**2)                                           1536
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2370:72:

       r=r-d*v*x(:,k)                                                       1537
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2371:72:

 13231 continue                                                             1538
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2372:72:

 13232 continue                                                             1538
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2373:72:

       d=sum(r)/xmz                                                         1539
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2374:72:

       if(d .eq. 0.0)goto 13281                                             1539
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2375:72:

       b(0,ic)=b(0,ic)+d                                                    1540
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2376:72:

       dlx=max(dlx,xmz*d**2)                                                1540
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2377:72:

       r=r-d*v                                                              1541
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2378:72:

 13281 continue                                                             1542
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2379:72:

       if(dlx.lt.shr)goto 13222                                             1542
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2380:72:

       if(nlp .le. maxit)goto 13301                                         1542
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2381:72:

       jerr=-ilm                                                            1542
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2382:72:

       return                                                               1542
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2383:72:

 13301 continue                                                             1543
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2384:72:

       goto 13221                                                           1544
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2385:72:

 13222 continue                                                             1544
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2386:72:

       goto 13091                                                           1545
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2387:72:

 13092 continue                                                             1545
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2388:72:

       if(jx.gt.0)goto 13002                                                1546
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2389:72:

       if(xmz*(b(0,ic)-bs(0,ic))**2.gt.shr) ix=1                            1547
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2390:72:

       if(ix .ne. 0)goto 13321                                              1548
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2391:72:

 13330 do 13331 j=1,nin                                                     1548
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2392:72:

       k=m(j)                                                               1549
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2393:72:

       if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 13351                1549
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2394:72:

       ix=1                                                                 1549
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2395:72:

       goto 13332                                                           1549
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2396:72:

 13351 continue                                                             1550
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2397:72:

 13331 continue                                                             1551
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2398:72:

 13332 continue                                                             1551
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2399:72:

 13321 continue                                                             1552
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2400:72:

 13360 do 13361 i=1,no                                                      1552
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2401:72:

       fi=b(0,ic)+g(i,ic)                                                   1554
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2402:72:

       if(nin.gt.0) fi=fi+dot_product(b(m(1:nin),ic),x(i,m(1:nin)))         1555
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2403:72:

       fi=min(max(exmn,fi),exmx)                                            1555
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2404:72:

       sxp(i)=sxp(i)-q(i,ic)                                                1556
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2405:72:

       q(i,ic)=min(max(emin*sxp(i),exp(fi)),emax*sxp(i))                    1557
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2406:72:

       sxp(i)=sxp(i)+q(i,ic)                                                1558
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2407:72:

 13361 continue                                                             1559
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2408:72:

 13362 continue                                                             1559
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2409:72:

 13001 continue                                                             1560
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2410:72:

 13002 continue                                                             1560
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2411:72:

       s=-sum(b(0,:))/nc                                                    1560
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2412:72:

       b(0,:)=b(0,:)+s                                                      1560
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2413:72:

       di=s                                                                 1561
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2414:72:

 13370 do 13371 j=1,nin                                                     1561
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2415:72:

       l=m(j)                                                               1562
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2416:72:

       if(vp(l) .gt. 0.0)goto 13391                                         1562
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2417:72:

       s=sum(b(l,:))/nc                                                     1562
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2418:72:

       goto 13401                                                           1563
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2419:72:

 13391 continue                                                             1563
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2420:72:

       s=elc(parm,nc,b(l,:),is)                                             1563
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2421:72:

 13401 continue                                                             1564
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2422:72:

 13381 continue                                                             1564
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2423:72:

       b(l,:)=b(l,:)-s                                                      1564
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2424:72:

       di=di-s*x(:,l)                                                       1565
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2425:72:

 13371 continue                                                             1566
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2426:72:

 13372 continue                                                             1566
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2427:72:

       di=exp(di)                                                           1566
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2428:72:

       sxp=sxp*di                                                           1566
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2429:72:

 13410 do 13411 ic=1,nc                                                     1566
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2430:72:

       q(:,ic)=q(:,ic)*di                                                   1566
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2431:72:

 13411 continue                                                             1567
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2432:72:

 13412 continue                                                             1567
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2433:72:

       if(jx.gt.0)goto 12992                                                1567
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2434:72:

       if(ig.eq.0)goto 12992                                                1568
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2435:72:

       if(ix .ne. 0)goto 13431                                              1569
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2436:72:

 13440 do 13441 k=1,ni                                                      1569
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2437:72:

       if(ixx(k).eq.1)goto 13441                                            1569
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2438:72:

       if(ju(k).eq.0)goto 13441                                             1569
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2439:72:

       ga(k)=0.0                                                            1569
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2440:72:

 13441 continue                                                             1570
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2441:72:

 13442 continue                                                             1570
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2442:72:

 13450 do 13451 ic=1,nc                                                     1570
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2443:72:

       r=w*(y(:,ic)-q(:,ic)/sxp)                                            1571
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2444:72:

 13460 do 13461 k=1,ni                                                      1571
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2445:72:

       if(ixx(k).eq.1)goto 13461                                            1571
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2446:72:

       if(ju(k).eq.0)goto 13461                                             1572
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2447:72:

       ga(k)=max(ga(k),abs(dot_product(r,x(:,k))))                          1573
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2448:72:

 13461 continue                                                             1574
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2449:72:

 13462 continue                                                             1574
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2450:72:

 13451 continue                                                             1575
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2451:72:

 13452 continue                                                             1575
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2452:72:

 13470 do 13471 k=1,ni                                                      1575
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2453:72:

       if(ixx(k).eq.1)goto 13471                                            1575
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2454:72:

       if(ju(k).eq.0)goto 13471                                             1576
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2455:72:

       if(ga(k) .le. al1*vp(k))goto 13491                                   1576
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2456:72:

       ixx(k)=1                                                             1576
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2457:72:

       ix=1                                                                 1576
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2458:72:

 13491 continue                                                             1577
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2459:72:

 13471 continue                                                             1578
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2460:72:

 13472 continue                                                             1578
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2461:72:

       if(ix.eq.1) go to 10680                                              1579
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2462:72:

       goto 12992                                                           1580
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2463:72:

 13431 continue                                                             1581
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2464:72:

       goto 12991                                                           1582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2465:72:

 12992 continue                                                             1582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2466:72:

       if(jx .le. 0)goto 13511                                              1582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2467:72:

       jerr=-10000-ilm                                                      1582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2468:72:

       goto 12912                                                           1582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2469:72:

 13511 continue                                                             1582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2470:72:

       devi=0.0                                                             1583
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2471:72:

 13520 do 13521 ic=1,nc                                                     1584
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2472:72:

       if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)                          1584
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2473:72:

       a0(ic,ilm)=b(0,ic)                                                   1585
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2474:72:

 13530 do 13531 i=1,no                                                      1585
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2475:72:

       if(y(i,ic).le.0.0)goto 13531                                         1586
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2476:72:

       devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))                           1587
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2477:72:

 13531 continue                                                             1588
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2478:72:

 13532 continue                                                             1588
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2479:72:

 13521 continue                                                             1589
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2480:72:

 13522 continue                                                             1589
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2481:72:

       kin(ilm)=nin                                                         1589
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2482:72:

       alm(ilm)=al                                                          1589
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2483:72:

       lmu=ilm                                                              1590
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2484:72:

       dev(ilm)=(dev1-devi)/dev0                                            1590
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2485:72:

       if(ig.eq.0)goto 12912                                                1591
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2486:72:

       if(ilm.lt.mnl)goto 12911                                             1591
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2487:72:

       if(flmin.ge.1.0)goto 12911                                           1592
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2488:72:

       if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 12912             1593
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2489:72:

       if(dev(ilm).gt.devmax)goto 12912                                     1593
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2490:72:

       if(dev(ilm)-dev(ilm-1).lt.sml)goto 12912                             1594
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2491:72:

 12911 continue                                                             1595
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2492:72:

 12912 continue                                                             1595
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2493:72:

       g=log(q)                                                             1595
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2494:72:

 13540 do 13541 i=1,no                                                      1595
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2495:72:

       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         1595
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2496:72:

 13541 continue                                                             1596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2497:72:

 13542 continue                                                             1596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2498:72:

       deallocate(sxp,b,bs,v,r,xv,q,mm,is,ga,ixx)                           1597
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2499:72:

       return                                                               1598
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2500:72:

       end                                                                  1599
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2501:72:

       subroutine kazero(kk,n,y,g,q,az,jerr)                                1600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2502:72:

       parameter(eps=1.0e-7)                                                1601
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2503:72:

       real y(n,kk),g(n,kk),q(n),az(kk)                                     1602
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2507:72:

       allocate(s(1:n),stat=ierr)                                           1607
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2508:72:

       jerr=jerr+ierr                                                       1608
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2509:72:

       if(jerr.ne.0) return                                                 1609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2510:72:

       az=0.0                                                               1609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2511:72:

       e=exp(g)                                                             1609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2512:72:

 13550 do 13551 i=1,n                                                       1609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2513:72:

       s(i)=sum(e(i,:))                                                     1609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2514:72:

 13551 continue                                                             1610
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2515:72:

 13552 continue                                                             1610
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2516:72:

 13560 continue                                                             1610
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2517:72:

 13561 continue                                                             1610
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2518:72:

       dm=0.0                                                               1611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2519:72:

 13570 do 13571 k=1,kk                                                      1611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2520:72:

       t=0.0                                                                1611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2521:72:

       u=t                                                                  1612
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2522:72:

 13580 do 13581 i=1,n                                                       1612
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2523:72:

       pik=e(i,k)/s(i)                                                      1613
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2524:72:

       t=t+q(i)*(y(i,k)-pik)                                                1613
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2525:72:

       u=u+q(i)*pik*(1.0-pik)                                               1614
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2526:72:

 13581 continue                                                             1615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2527:72:

 13582 continue                                                             1615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2528:72:

       d=t/u                                                                1615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2529:72:

       az(k)=az(k)+d                                                        1615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2530:72:

       ed=exp(d)                                                            1615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2531:72:

       dm=max(dm,abs(d))                                                    1616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2532:72:

 13590 do 13591 i=1,n                                                       1616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2533:72:

       z=e(i,k)                                                             1616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2534:72:

       e(i,k)=z*ed                                                          1616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2535:72:

       s(i)=s(i)-z+e(i,k)                                                   1616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2536:72:

 13591 continue                                                             1617
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2537:72:

 13592 continue                                                             1617
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2538:72:

 13571 continue                                                             1618
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2539:72:

 13572 continue                                                             1618
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2540:72:

       if(dm.lt.eps)goto 13562                                              1618
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2541:72:

       goto 13561                                                           1619
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2542:72:

 13562 continue                                                             1619
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2543:72:

       az=az-sum(az)/kk                                                     1620
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2544:72:

       deallocate(e,s)                                                      1621
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2545:72:

       return                                                               1622
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2546:72:

       end                                                                  1623
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2547:72:

       function elc(parm,n,a,m)                                             1624
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2548:72:

       real a(n)                                                            1624
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2549:72:

       integer m(n)                                                         1625
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2550:72:

       fn=n                                                                 1625
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2551:72:

       am=sum(a)/fn                                                         1626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2552:72:

       if((parm .ne. 0.0) .and. (n .ne. 2))goto 13611                       1626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2553:72:

       elc=am                                                               1626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2554:72:

       return                                                               1626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2555:72:

 13611 continue                                                             1627
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2556:72:

 13620 do 13621 i=1,n                                                       1627
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2557:72:

       m(i)=i                                                               1627
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2558:72:

 13621 continue                                                             1627
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2559:72:

 13622 continue                                                             1627
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2560:72:

       call psort7(a,m,1,n)                                                 1628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2561:72:

       if(a(m(1)) .ne. a(m(n)))goto 13641                                   1628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2562:72:

       elc=a(1)                                                             1628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2563:72:

       return                                                               1628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2564:72:

 13641 continue                                                             1629
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2565:72:

       if(mod(n,2) .ne. 1)goto 13661                                        1629
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2566:72:

       ad=a(m(n/2+1))                                                       1629
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2567:72:

       goto 13671                                                           1630
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2568:72:

 13661 continue                                                             1630
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2569:72:

       ad=0.5*(a(m(n/2+1))+a(m(n/2)))                                       1630
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2570:72:

 13671 continue                                                             1631
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2571:72:

 13651 continue                                                             1631
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2572:72:

       if(parm .ne. 1.0)goto 13691                                          1631
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2573:72:

       elc=ad                                                               1631
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2574:72:

       return                                                               1631
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2575:72:

 13691 continue                                                             1632
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2576:72:

       b1=min(am,ad)                                                        1632
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2577:72:

       b2=max(am,ad)                                                        1632
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2578:72:

       k2=1                                                                 1633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2579:72:

 13700 continue                                                             1633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2580:72:

 13701 if(a(m(k2)).gt.b1)goto 13702                                         1633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2581:72:

       k2=k2+1                                                              1633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2582:72:

       goto 13701                                                           1633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2583:72:

 13702 continue                                                             1633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2584:72:

       k1=k2-1                                                              1634
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2585:72:

 13710 continue                                                             1634
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2586:72:

 13711 if(a(m(k2)).ge.b2)goto 13712                                         1634
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2587:72:

       k2=k2+1                                                              1634
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2588:72:

       goto 13711                                                           1635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2589:72:

 13712 continue                                                             1635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2590:72:

       r=parm/((1.0-parm)*fn)                                               1635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2591:72:

       is=0                                                                 1635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2592:72:

       sm=n-2*(k1-1)                                                        1636
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2593:72:

 13720 do 13721 k=k1,k2-1                                                   1636
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2594:72:

       sm=sm-2.0                                                            1636
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2595:72:

       s=r*sm+am                                                            1637
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2596:72:

       if(s .le. a(m(k)) .or. s .gt. a(m(k+1)))goto 13741                   1637
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2597:72:

       is=k                                                                 1637
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2598:72:

       goto 13722                                                           1637
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2599:72:

 13741 continue                                                             1638
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2600:72:

 13721 continue                                                             1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2601:72:

 13722 continue                                                             1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2602:72:

       if(is .eq. 0)goto 13761                                              1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2603:72:

       elc=s                                                                1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2604:72:

       return                                                               1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2605:72:

 13761 continue                                                             1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2606:72:

       r2=2.0*r                                                             1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2607:72:

       s1=a(m(k1))                                                          1639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2608:72:

       am2=2.0*am                                                           1640
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2609:72:

       cri=r2*sum(abs(a-s1))+s1*(s1-am2)                                    1640
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2610:72:

       elc=s1                                                               1641
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2611:72:

 13770 do 13771 k=k1+1,k2                                                   1641
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2612:72:

       s=a(m(k))                                                            1641
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2613:72:

       if(s.eq.s1)goto 13771                                                1642
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2614:72:

       c=r2*sum(abs(a-s))+s*(s-am2)                                         1643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2615:72:

       if(c .ge. cri)goto 13791                                             1643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2616:72:

       cri=c                                                                1643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2617:72:

       elc=s                                                                1643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2618:72:

 13791 continue                                                             1643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2619:72:

       s1=s                                                                 1644
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2620:72:

 13771 continue                                                             1645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2621:72:

 13772 continue                                                             1645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2622:72:

       return                                                               1646
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2623:72:

       end                                                                  1647
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2624:72:

       function nintot(ni,nx,nc,a,m,nin,is)                                 1648
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2625:72:

       real a(nx,nc)                                                        1648
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2626:72:

       integer m(nx),is(ni)                                                 1649
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2627:72:

       is=0                                                                 1649
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2628:72:

       nintot=0                                                             1650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2629:72:

 13800 do 13801 ic=1,nc                                                     1650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2630:72:

 13810 do 13811 j=1,nin                                                     1650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2631:72:

       k=m(j)                                                               1650
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2632:72:

       if(is(k).ne.0)goto 13811                                             1651
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2633:72:

       if(a(j,ic).eq.0.0)goto 13811                                         1651
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2634:72:

       is(k)=k                                                              1651
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2635:72:

       nintot=nintot+1                                                      1652
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2636:72:

 13811 continue                                                             1652
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2637:72:

 13812 continue                                                             1652
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2638:72:

 13801 continue                                                             1653
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2639:72:

 13802 continue                                                             1653
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2640:72:

       return                                                               1654
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2641:72:

       end                                                                  1655
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2642:72:

       subroutine luncomp(ni,nx,nc,ca,ia,nin,a)                             1656
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2643:72:

       real ca(nx,nc),a(ni,nc)                                              1656
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2644:72:

       integer ia(nx)                                                       1657
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2645:72:

       a=0.0                                                                1658
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2646:72:

 13820 do 13821 ic=1,nc                                                     1658
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2647:72:

       if(nin.gt.0) a(ia(1:nin),ic)=ca(1:nin,ic)                            1658
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2648:72:

 13821 continue                                                             1659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2649:72:

 13822 continue                                                             1659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2650:72:

       return                                                               1660
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2651:72:

       end                                                                  1661
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2652:72:

       subroutine lmodval(nt,x,nc,nx,a0,ca,ia,nin,ans)                      1662
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2653:72:

       real a0(nc),ca(nx,nc),x(nt,*),ans(nc,nt)                             1662
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2654:72:

       integer ia(nx)                                                       1663
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2655:72:

 13830 do 13831 i=1,nt                                                      1663
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2656:72:

 13840 do 13841 ic=1,nc                                                     1663
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2657:72:

       ans(ic,i)=a0(ic)                                                     1665
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2658:72:

       if(nin.gt.0) ans(ic,i)=ans(ic,i)+dot_product(ca(1:nin,ic),x(i,ia(1   1666
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2660:72:

 13841 continue                                                             1666
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2661:72:

 13842 continue                                                             1666
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2662:72:

 13831 continue                                                             1667
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2663:72:

 13832 continue                                                             1667
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2664:72:

       return                                                               1668
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2665:72:

       end                                                                  1669
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2666:72:

       subroutine splognet (parm,no,ni,nc,x,ix,jx,y,g,jd,vp,ne,nx,nlam,fl   1671
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2669:72:

       real x(*),y(no,max(2,nc)),g(no,nc),vp(ni),ulam(nlam)                 1672
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2670:72:

       real ca(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                  1673
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2671:72:

       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                           1674
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2674:72:

       if(maxval(vp) .gt. 0.0)goto 13861                                    1678
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2675:72:

       jerr=10000                                                           1678
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2676:72:

       return                                                               1678
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2677:72:

 13861 continue                                                             1679
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2678:72:

       allocate(ww(1:no),stat=jerr)                                         1680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2679:72:

       allocate(ju(1:ni),stat=ierr)                                         1680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2680:72:

       jerr=jerr+ierr                                                       1681
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2681:72:

       allocate(vq(1:ni),stat=ierr)                                         1681
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2682:72:

       jerr=jerr+ierr                                                       1682
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2683:72:

       allocate(xm(1:ni),stat=ierr)                                         1682
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2684:72:

       jerr=jerr+ierr                                                       1683
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2685:72:

       allocate(xs(1:ni),stat=ierr)                                         1683
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2686:72:

       jerr=jerr+ierr                                                       1684
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2687:72:

       if(jerr.ne.0) return                                                 1685
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2688:72:

       call spchkvars(no,ni,x,ix,ju)                                        1686
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2689:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 1687
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2690:72:

       if(maxval(ju) .gt. 0)goto 13881                                      1687
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2691:72:

       jerr=7777                                                            1687
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2692:72:

       return                                                               1687
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2693:72:

 13881 continue                                                             1688
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2694:72:

       vq=max(0.0,vp)                                                       1688
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2695:72:

       vq=vq*ni/sum(vq)                                                     1689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2696:72:

 13890 do 13891 i=1,no                                                      1689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2697:72:

       ww(i)=sum(y(i,:))                                                    1689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2698:72:

       y(i,:)=y(i,:)/ww(i)                                                  1689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2699:72:

 13891 continue                                                             1689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2700:72:

 13892 continue                                                             1689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2701:72:

       sw=sum(ww)                                                           1689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2702:72:

       ww=ww/sw                                                             1690
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2703:72:

       call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)                     1691
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2704:72:

       if(nc .ne. 1)goto 13911                                              1692
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2705:72:

       call sprlognet2n(parm,no,ni,x,ix,jx,y(:,1),g(:,1),ww,ju,vq,ne,nx,n   1694
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2708:72:

       goto 13921                                                           1695
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2709:72:

 13911 continue                                                             1696
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2710:72:

       call sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmi   1698
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2713:72:

 13921 continue                                                             1699
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2714:72:

 13901 continue                                                             1699
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2715:72:

       if(jerr.gt.0) return                                                 1699
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2716:72:

       dev0=2.0*sw*dev0                                                     1700
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2717:72:

 13930 do 13931 k=1,lmu                                                     1700
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2718:72:

       nk=nin(k)                                                            1701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2719:72:

 13940 do 13941 ic=1,nc                                                     1701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2720:72:

       if(isd .le. 0)goto 13961                                             1701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2721:72:

 13970 do 13971 l=1,nk                                                      1701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2722:72:

       ca(l,ic,k)=ca(l,ic,k)/xs(ia(l))                                      1701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2723:72:

 13971 continue                                                             1701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2724:72:

 13972 continue                                                             1701
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2725:72:

 13961 continue                                                             1702
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2726:72:

       a0(ic,k)=a0(ic,k)-dot_product(ca(1:nk,ic,k),xm(ia(1:nk)))            1703
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2727:72:

 13941 continue                                                             1704
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2728:72:

 13942 continue                                                             1704
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2729:72:

 13931 continue                                                             1705
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2730:72:

 13932 continue                                                             1705
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2731:72:

       deallocate(ww,ju,vq,xm,xs)                                           1706
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2732:72:

       return                                                               1707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2733:72:

       end                                                                  1708
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2734:72:

       subroutine splstandard2(no,ni,x,ix,jx,w,ju,isd,xm,xs)                1709
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2735:72:

       real x(*),w(no),xm(ni),xs(ni)                                        1709
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2736:72:

       integer ix(*),jx(*),ju(ni)                                           1710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2737:72:

 13980 do 13981 j=1,ni                                                      1710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2738:72:

       if(ju(j).eq.0)goto 13981                                             1710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2739:72:

       jb=ix(j)                                                             1710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2740:72:

       je=ix(j+1)-1                                                         1711
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2741:72:

       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             1712
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2742:72:

       if(isd.ne.0) xs(j)=sqrt(dot_product(w(jx(jb:je)),x(jb:je)**2)-xm(j   1713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2744:72:

 13981 continue                                                             1714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2745:72:

 13982 continue                                                             1714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2746:72:

       if(isd.eq.0) xs=1.0                                                  1715
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2747:72:

       return                                                               1716
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2748:72:

       end                                                                  1717
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2749:72:

       subroutine sprlognet2n (parm,no,ni,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam,   1719
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2752:72:

       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1721
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2754:72:

       real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)                        1722
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2755:72:

       real a(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                         1723
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2756:72:

       real xb(ni),xs(ni)                                                   1723
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2757:72:

       integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                           1724
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2760:72:

       allocate(b(0:ni),stat=jerr)                                          1729
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2761:72:

       allocate(xm(0:ni),stat=ierr)                                         1729
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2762:72:

       jerr=jerr+ierr                                                       1730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2763:72:

       allocate(xv(1:ni),stat=ierr)                                         1730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2764:72:

       jerr=jerr+ierr                                                       1731
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2765:72:

       allocate(bs(0:ni),stat=ierr)                                         1731
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2766:72:

       jerr=jerr+ierr                                                       1732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2767:72:

       allocate(ga(1:ni),stat=ierr)                                         1732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2768:72:

       jerr=jerr+ierr                                                       1733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2769:72:

       allocate(mm(1:ni),stat=ierr)                                         1733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2770:72:

       jerr=jerr+ierr                                                       1734
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2771:72:

       allocate(ixx(1:ni),stat=ierr)                                        1734
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2772:72:

       jerr=jerr+ierr                                                       1735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2773:72:

       allocate(q(1:no),stat=ierr)                                          1735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2774:72:

       jerr=jerr+ierr                                                       1736
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2775:72:

       allocate(r(1:no),stat=ierr)                                          1736
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2776:72:

       jerr=jerr+ierr                                                       1737
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2777:72:

       allocate(v(1:no),stat=ierr)                                          1737
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2778:72:

       jerr=jerr+ierr                                                       1738
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2779:72:

       allocate(sc(1:no),stat=ierr)                                         1738
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2780:72:

       jerr=jerr+ierr                                                       1739
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2781:72:

       if(jerr.ne.0) return                                                 1740
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2782:72:

       fmax=log(1.0/pmin-1.0)                                               1740
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2783:72:

       fmin=-fmax                                                           1740
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2784:72:

       vmin=(1.0+pmin)*pmin*(1.0-pmin)                                      1741
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2785:72:

       bta=parm                                                             1741
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2786:72:

       omb=1.0-bta                                                          1742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2787:72:

       q0=dot_product(w,y)                                                  1742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2788:72:

       if(q0 .gt. pmin)goto 14001                                           1742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2789:72:

       jerr=8001                                                            1742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2790:72:

       return                                                               1742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2791:72:

 14001 continue                                                             1743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2792:72:

       if(q0 .lt. 1.0-pmin)goto 14021                                       1743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2793:72:

       jerr=9001                                                            1743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2794:72:

       return                                                               1743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2795:72:

 14021 continue                                                             1743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2796:72:

       bz=log(q0/(1.0-q0))                                                  1744
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2797:72:

       if(nonzero(no,g) .ne. 0)goto 14041                                   1744
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2798:72:

       vi=q0*(1.0-q0)                                                       1744
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2799:72:

       b(0)=bz                                                              1744
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2800:72:

       v=vi*w                                                               1745
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2801:72:

       r=w*(y-q0)                                                           1745
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2802:72:

       q=q0                                                                 1745
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2803:72:

       xm(0)=vi                                                             1745
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2804:72:

       dev1=-(bz*q0+log(1.0-q0))                                            1746
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2805:72:

       goto 14051                                                           1747
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2806:72:

 14041 continue                                                             1747
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2807:72:

       b(0)=azero(no,y,g,w,jerr)                                            1747
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2808:72:

       if(jerr.ne.0) return                                                 1748
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2809:72:

       q=1.0/(1.0+exp(-b(0)-g))                                             1748
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2810:72:

       v=w*q*(1.0-q)                                                        1748
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2811:72:

       r=w*(y-q)                                                            1748
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2812:72:

       xm(0)=sum(v)                                                         1749
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2813:72:

       dev1=-(b(0)*q0+dot_product(w,y*g+log(1.0-q)))                        1750
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2814:72:

 14051 continue                                                             1751
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2815:72:

 14031 continue                                                             1751
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2816:72:

       if(kopt .le. 0)goto 14071                                            1752
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2817:72:

       if(isd .le. 0)goto 14091                                             1752
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2818:72:

       xv=0.25                                                              1752
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2819:72:

       goto 14101                                                           1753
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2820:72:

 14091 continue                                                             1754
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2821:72:

 14110 do 14111 j=1,ni                                                      1754
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2822:72:

       if(ju(j).eq.0)goto 14111                                             1754
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2823:72:

       jb=ix(j)                                                             1754
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2824:72:

       je=ix(j+1)-1                                                         1755
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2825:72:

       xv(j)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)          1756
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2826:72:

 14111 continue                                                             1757
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2827:72:

 14112 continue                                                             1757
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2828:72:

 14101 continue                                                             1758
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2829:72:

 14081 continue                                                             1758
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2830:72:

 14071 continue                                                             1759
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2831:72:

       b(1:ni)=0.0                                                          1759
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2832:72:

       dev0=dev1                                                            1760
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2833:72:

 14120 do 14121 i=1,no                                                      1760
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2834:72:

       if(y(i).gt.0.0) dev0=dev0+w(i)*y(i)*log(y(i))                        1761
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2835:72:

       if(y(i).lt.1.0) dev0=dev0+w(i)*(1.0-y(i))*log(1.0-y(i))              1762
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2836:72:

 14121 continue                                                             1763
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2837:72:

 14122 continue                                                             1763
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2838:72:

       if(flmin .ge. 1.0)goto 14141                                         1763
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2839:72:

       eqs=max(eps,flmin)                                                   1763
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2840:72:

       alf=eqs**(1.0/(nlam-1))                                              1763
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2841:72:

 14141 continue                                                             1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2842:72:

       m=0                                                                  1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2843:72:

       mm=0                                                                 1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2844:72:

       nin=0                                                                1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2845:72:

       o=0.0                                                                1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2846:72:

       svr=o                                                                1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2847:72:

       mnl=min(mnlam,nlam)                                                  1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2848:72:

       bs=0.0                                                               1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2849:72:

       nlp=0                                                                1764
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2850:72:

       nin=nlp                                                              1765
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2851:72:

       shr=shri*dev0                                                        1765
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2852:72:

       al=0.0                                                               1765
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2853:72:

       ixx=0                                                                1766
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2854:72:

 14150 do 14151 j=1,ni                                                      1766
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2855:72:

       if(ju(j).eq.0)goto 14151                                             1767
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2856:72:

       jb=ix(j)                                                             1767
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2857:72:

       je=ix(j+1)-1                                                         1767
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2858:72:

       jn=ix(j+1)-ix(j)                                                     1768
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2859:72:

       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1769
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2860:72:

       gj=dot_product(sc(1:jn),x(jb:je))                                    1770
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2861:72:

       ga(j)=abs((gj-svr*xb(j))/xs(j))                                      1771
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2862:72:

 14151 continue                                                             1772
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2863:72:

 14152 continue                                                             1772
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2864:72:

 14160 do 14161 ilm=1,nlam                                                  1772
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2865:72:

       al0=al                                                               1773
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2866:72:

       if(flmin .lt. 1.0)goto 14181                                         1773
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2867:72:

       al=ulam(ilm)                                                         1773
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2868:72:

       goto 14171                                                           1774
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2869:72:

 14181 if(ilm .le. 2)goto 14191                                             1774
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2870:72:

       al=al*alf                                                            1774
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2871:72:

       goto 14171                                                           1775
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2872:72:

 14191 if(ilm .ne. 1)goto 14201                                             1775
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2873:72:

       al=big                                                               1775
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2874:72:

       goto 14211                                                           1776
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2875:72:

 14201 continue                                                             1776
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2876:72:

       al0=0.0                                                              1777
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2877:72:

 14220 do 14221 j=1,ni                                                      1777
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2878:72:

       if(ju(j).eq.0)goto 14221                                             1777
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2879:72:

       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1777
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2880:72:

 14221 continue                                                             1778
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2881:72:

 14222 continue                                                             1778
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2882:72:

       al0=al0/max(bta,1.0e-3)                                              1778
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2883:72:

       al=alf*al0                                                           1779
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2884:72:

 14211 continue                                                             1780
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2885:72:

 14171 continue                                                             1780
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2886:72:

       al2=al*omb                                                           1780
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2887:72:

       al1=al*bta                                                           1780
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2888:72:

       tlam=bta*(2.0*al-al0)                                                1781
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2889:72:

 14230 do 14231 k=1,ni                                                      1781
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2890:72:

       if(ixx(k).eq.1)goto 14231                                            1781
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2891:72:

       if(ju(k).eq.0)goto 14231                                             1782
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2892:72:

       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     1783
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2893:72:

 14231 continue                                                             1784
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2894:72:

 14232 continue                                                             1784
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2895:72:

 10680 continue                                                             1785
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2896:72:

 14240 continue                                                             1785
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2897:72:

 14241 continue                                                             1785
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2898:72:

       bs(0)=b(0)                                                           1785
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2899:72:

       if(nin.gt.0) bs(m(1:nin))=b(m(1:nin))                                1786
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2900:72:

 14250 do 14251 j=1,ni                                                      1786
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2901:72:

       if(ixx(j).eq.0)goto 14251                                            1787
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2902:72:

       jb=ix(j)                                                             1787
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2903:72:

       je=ix(j+1)-1                                                         1787
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2904:72:

       jn=ix(j+1)-ix(j)                                                     1788
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2905:72:

       sc(1:jn)=v(jx(jb:je))                                                1789
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2906:72:

       xm(j)=dot_product(sc(1:jn),x(jb:je))                                 1790
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2907:72:

       if(kopt .ne. 0)goto 14271                                            1791
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2908:72:

       xv(j)=dot_product(sc(1:jn),x(jb:je)**2)                              1792
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2909:72:

       xv(j)=(xv(j)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2                1793
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2910:72:

 14271 continue                                                             1794
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2911:72:

 14251 continue                                                             1795
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2912:72:

 14252 continue                                                             1795
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2913:72:

 14280 continue                                                             1795
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2914:72:

 14281 continue                                                             1795
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2915:72:

       nlp=nlp+1                                                            1795
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2916:72:

       dlx=0.0                                                              1796
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2917:72:

 14290 do 14291 k=1,ni                                                      1796
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2918:72:

       if(ixx(k).eq.0)goto 14291                                            1797
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2919:72:

       jb=ix(k)                                                             1797
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2920:72:

       je=ix(k+1)-1                                                         1797
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2921:72:

       jn=ix(k+1)-ix(k)                                                     1797
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2922:72:

       bk=b(k)                                                              1798
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2923:72:

       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1799
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2924:72:

       gk=dot_product(sc(1:jn),x(jb:je))                                    1800
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2925:72:

       gk=(gk-svr*xb(k))/xs(k)                                              1801
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2926:72:

       u=gk+xv(k)*b(k)                                                      1801
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2927:72:

       au=abs(u)-vp(k)*al1                                                  1802
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2928:72:

       if(au .gt. 0.0)goto 14311                                            1802
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2929:72:

       b(k)=0.0                                                             1802
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2930:72:

       goto 14321                                                           1803
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2931:72:

 14311 continue                                                             1803
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2932:72:

       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1803
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2933:72:

 14321 continue                                                             1804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2934:72:

 14301 continue                                                             1804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2935:72:

       d=b(k)-bk                                                            1804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2936:72:

       if(abs(d).le.0.0)goto 14291                                          1804
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2937:72:

       dlx=max(dlx,xv(k)*d**2)                                              1805
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2938:72:

       if(mm(k) .ne. 0)goto 14341                                           1805
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2939:72:

       nin=nin+1                                                            1805
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2940:72:

       if(nin.gt.nx)goto 14292                                              1806
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2941:72:

       mm(k)=nin                                                            1806
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2942:72:

       m(nin)=k                                                             1806
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2943:72:

       sc(1:jn)=v(jx(jb:je))                                                1807
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2944:72:

       xm(k)=dot_product(sc(1:jn),x(jb:je))                                 1808
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2945:72:

 14341 continue                                                             1809
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2946:72:

       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              1810
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2947:72:

       o=o+d*(xb(k)/xs(k))                                                  1811
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2948:72:

       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  1812
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2949:72:

 14291 continue                                                             1813
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2950:72:

 14292 continue                                                             1813
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2951:72:

       if(nin.gt.nx)goto 14282                                              1814
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2952:72:

       d=svr/xm(0)                                                          1815
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2953:72:

       if(d .eq. 0.0)goto 14361                                             1815
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2954:72:

       b(0)=b(0)+d                                                          1815
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2955:72:

       dlx=max(dlx,xm(0)*d**2)                                              1815
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2956:72:

       r=r-d*v                                                              1815
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2957:72:

 14361 continue                                                             1816
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2958:72:

       svr=svr-d*xm(0)                                                      1816
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2959:72:

       if(dlx.lt.shr)goto 14282                                             1817
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2960:72:

       if(nlp .le. maxit)goto 14381                                         1817
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2961:72:

       jerr=-ilm                                                            1817
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2962:72:

       return                                                               1817
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2963:72:

 14381 continue                                                             1818
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2964:72:

 14390 continue                                                             1818
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2965:72:

 14391 continue                                                             1818
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2966:72:

       nlp=nlp+1                                                            1818
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2967:72:

       dlx=0.0                                                              1819
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2968:72:

 14400 do 14401 l=1,nin                                                     1819
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2969:72:

       k=m(l)                                                               1819
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2970:72:

       jb=ix(k)                                                             1819
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2971:72:

       je=ix(k+1)-1                                                         1820
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2972:72:

       jn=ix(k+1)-ix(k)                                                     1820
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2973:72:

       bk=b(k)                                                              1821
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2974:72:

       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1822
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2975:72:

       gk=dot_product(sc(1:jn),x(jb:je))                                    1823
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2976:72:

       gk=(gk-svr*xb(k))/xs(k)                                              1824
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2977:72:

       u=gk+xv(k)*b(k)                                                      1824
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2978:72:

       au=abs(u)-vp(k)*al1                                                  1825
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2979:72:

       if(au .gt. 0.0)goto 14421                                            1825
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2980:72:

       b(k)=0.0                                                             1825
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2981:72:

       goto 14431                                                           1826
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2982:72:

 14421 continue                                                             1826
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2983:72:

       b(k)=sign(au,u)/(xv(k)+vp(k)*al2)                                    1826
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2984:72:

 14431 continue                                                             1827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2985:72:

 14411 continue                                                             1827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2986:72:

       d=b(k)-bk                                                            1827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2987:72:

       if(abs(d).le.0.0)goto 14401                                          1827
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2988:72:

       dlx=max(dlx,xv(k)*d**2)                                              1828
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2989:72:

       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              1829
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2990:72:

       o=o+d*(xb(k)/xs(k))                                                  1830
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2991:72:

       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  1831
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2992:72:

 14401 continue                                                             1832
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2993:72:

 14402 continue                                                             1832
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2994:72:

       d=svr/xm(0)                                                          1833
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2995:72:

       if(d .eq. 0.0)goto 14451                                             1833
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2996:72:

       b(0)=b(0)+d                                                          1833
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2997:72:

       dlx=max(dlx,xm(0)*d**2)                                              1833
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2998:72:

       r=r-d*v                                                              1833
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:2999:72:

 14451 continue                                                             1834
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3000:72:

       svr=svr-d*xm(0)                                                      1834
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3001:72:

       if(dlx.lt.shr)goto 14392                                             1835
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3002:72:

       if(nlp .le. maxit)goto 14471                                         1835
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3003:72:

       jerr=-ilm                                                            1835
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3004:72:

       return                                                               1835
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3005:72:

 14471 continue                                                             1836
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3006:72:

       goto 14391                                                           1837
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3007:72:

 14392 continue                                                             1837
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3008:72:

       goto 14281                                                           1838
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3009:72:

 14282 continue                                                             1838
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3010:72:

       if(nin.gt.nx)goto 14242                                              1839
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3011:72:

       sc=b(0)                                                              1839
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3012:72:

       b0=0.0                                                               1840
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3013:72:

 14480 do 14481 j=1,nin                                                     1840
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3014:72:

       l=m(j)                                                               1840
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3015:72:

       jb=ix(l)                                                             1840
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3016:72:

       je=ix(l+1)-1                                                         1841
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3017:72:

       sc(jx(jb:je))=sc(jx(jb:je))+b(l)*x(jb:je)/xs(l)                      1842
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3018:72:

       b0=b0-b(l)*xb(l)/xs(l)                                               1843
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3019:72:

 14481 continue                                                             1844
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3020:72:

 14482 continue                                                             1844
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3021:72:

       sc=sc+b0                                                             1845
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3022:72:

 14490 do 14491 i=1,no                                                      1845
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3023:72:

       fi=sc(i)+g(i)                                                        1846
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3024:72:

       if(fi .ge. fmin)goto 14511                                           1846
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3025:72:

       q(i)=0.0                                                             1846
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3026:72:

       goto 14501                                                           1846
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3027:72:

 14511 if(fi .le. fmax)goto 14521                                           1846
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3028:72:

       q(i)=1.0                                                             1846
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3029:72:

       goto 14531                                                           1847
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3030:72:

 14521 continue                                                             1847
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3031:72:

       q(i)=1.0/(1.0+exp(-fi))                                              1847
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3032:72:

 14531 continue                                                             1848
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3033:72:

 14501 continue                                                             1848
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3034:72:

 14491 continue                                                             1849
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3035:72:

 14492 continue                                                             1849
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3036:72:

       v=w*q*(1.0-q)                                                        1849
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3037:72:

       xm(0)=sum(v)                                                         1849
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3038:72:

       if(xm(0).lt.vmin)goto 14242                                          1850
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3039:72:

       r=w*(y-q)                                                            1850
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3040:72:

       svr=sum(r)                                                           1850
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3041:72:

       o=0.0                                                                1851
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3042:72:

       if(xm(0)*(b(0)-bs(0))**2 .ge. shr)goto 14551                         1851
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3043:72:

       kx=0                                                                 1852
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3044:72:

 14560 do 14561 j=1,nin                                                     1852
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3045:72:

       k=m(j)                                                               1853
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3046:72:

       if(xv(k)*(b(k)-bs(k))**2.lt.shr)goto 14561                           1853
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3047:72:

       kx=1                                                                 1853
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3048:72:

       goto 14562                                                           1854
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3049:72:

 14561 continue                                                             1855
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3050:72:

 14562 continue                                                             1855
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3051:72:

       if(kx .ne. 0)goto 14581                                              1856
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3052:72:

 14590 do 14591 j=1,ni                                                      1856
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3053:72:

       if(ixx(j).eq.1)goto 14591                                            1856
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3054:72:

       if(ju(j).eq.0)goto 14591                                             1857
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3055:72:

       jb=ix(j)                                                             1857
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3056:72:

       je=ix(j+1)-1                                                         1857
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3057:72:

       jn=ix(j+1)-ix(j)                                                     1858
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3058:72:

       sc(1:jn)=r(jx(jb:je))+v(jx(jb:je))*o                                 1859
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3059:72:

       gj=dot_product(sc(1:jn),x(jb:je))                                    1860
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3060:72:

       ga(j)=abs((gj-svr*xb(j))/xs(j))                                      1861
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3061:72:

       if(ga(j) .le. al1*vp(j))goto 14611                                   1861
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3062:72:

       ixx(j)=1                                                             1861
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3063:72:

       kx=1                                                                 1861
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3064:72:

 14611 continue                                                             1862
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3065:72:

 14591 continue                                                             1863
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3066:72:

 14592 continue                                                             1863
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3067:72:

       if(kx.eq.1) go to 10680                                              1864
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3068:72:

       goto 14242                                                           1865
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3069:72:

 14581 continue                                                             1866
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3070:72:

 14551 continue                                                             1867
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3071:72:

       goto 14241                                                           1868
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3072:72:

 14242 continue                                                             1868
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3073:72:

       if(nin .le. nx)goto 14631                                            1868
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3074:72:

       jerr=-10000-ilm                                                      1868
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3075:72:

       goto 14162                                                           1868
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3076:72:

 14631 continue                                                             1869
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3077:72:

       if(nin.gt.0) a(1:nin,ilm)=b(m(1:nin))                                1869
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3078:72:

       kin(ilm)=nin                                                         1870
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3079:72:

       a0(ilm)=b(0)                                                         1870
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3080:72:

       alm(ilm)=al                                                          1870
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3081:72:

       lmu=ilm                                                              1871
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3082:72:

       devi=dev2(no,w,y,q,pmin)                                             1872
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3083:72:

       dev(ilm)=(dev1-devi)/dev0                                            1873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3084:72:

       if(ilm.lt.mnl)goto 14161                                             1873
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3085:72:

       if(flmin.ge.1.0)goto 14161                                           1874
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3086:72:

       me=0                                                                 1874
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3087:72:

 14640 do 14641 j=1,nin                                                     1874
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3088:72:

       if(a(j,ilm).ne.0.0) me=me+1                                          1874
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3089:72:

 14641 continue                                                             1874
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3090:72:

 14642 continue                                                             1874
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3091:72:

       if(me.gt.ne)goto 14162                                               1875
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3092:72:

       if(dev(ilm).gt.devmax)goto 14162                                     1875
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3093:72:

       if(dev(ilm)-dev(ilm-1).lt.sml)goto 14162                             1876
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3094:72:

       if(xm(0).lt.vmin)goto 14162                                          1877
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3095:72:

 14161 continue                                                             1878
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3096:72:

 14162 continue                                                             1878
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3097:72:

       g=log(q/(1.0-q))                                                     1879
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3098:72:

       deallocate(xm,b,bs,v,r,sc,xv,q,mm,ga,ixx)                            1880
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3099:72:

       return                                                               1881
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3100:72:

       end                                                                  1882
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3101:72:

       subroutine sprlognetn(parm,no,ni,nc,x,ix,jx,y,g,w,ju,vp,ne,nx,nlam   1884
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3104:72:

       parameter(sml=1.0e-5, eps=1.0e-6, pmin=1.0e-5,  big=9.9e30, mnlam=   1886
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3106:72:

       real x(*),y(no,nc),g(no,nc),w(no),vp(ni),ulam(nlam),xb(ni),xs(ni)    1887
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3107:72:

       real a(nx,nc,nlam),a0(nc,nlam),dev(nlam),alm(nlam)                   1888
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3108:72:

       integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                           1889
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3118:72:

       allocate(xm(0:ni),stat=ierr)                                         1900
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3119:72:

       jerr=jerr+ierr                                                       1901
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3120:72:

       allocate(r(1:no),stat=ierr)                                          1901
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3121:72:

       jerr=jerr+ierr                                                       1902
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3122:72:

       allocate(v(1:no),stat=ierr)                                          1902
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3123:72:

       jerr=jerr+ierr                                                       1903
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3124:72:

       allocate(mm(1:ni),stat=ierr)                                         1903
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3125:72:

       jerr=jerr+ierr                                                       1904
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3126:72:

       allocate(ga(1:ni),stat=ierr)                                         1904
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3127:72:

       jerr=jerr+ierr                                                       1905
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3128:72:

       allocate(iy(1:ni),stat=ierr)                                         1905
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3129:72:

       jerr=jerr+ierr                                                       1906
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3130:72:

       allocate(is(1:max(nc,ni)),stat=ierr)                                 1906
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3131:72:

       jerr=jerr+ierr                                                       1907
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3132:72:

       allocate(sxp(1:no),stat=ierr)                                        1907
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3133:72:

       jerr=jerr+ierr                                                       1908
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3134:72:

       allocate(sxpl(1:no),stat=ierr)                                       1908
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3135:72:

       jerr=jerr+ierr                                                       1909
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3136:72:

       allocate(sc(1:no),stat=ierr)                                         1909
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3137:72:

       jerr=jerr+ierr                                                       1910
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3138:72:

       if(jerr.ne.0) return                                                 1911
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3139:72:

       pmax=1.0-pmin                                                        1911
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3140:72:

       emin=pmin/pmax                                                       1911
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3141:72:

       emax=1.0/emin                                                        1912
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3142:72:

       pfm=(1.0+pmin)*pmin                                                  1912
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3143:72:

       pfx=(1.0-pmin)*pmax                                                  1912
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3144:72:

       vmin=pfm*pmax                                                        1913
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3145:72:

       bta=parm                                                             1913
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3146:72:

       omb=1.0-bta                                                          1913
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3147:72:

       dev1=0.0                                                             1913
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3148:72:

       dev0=0.0                                                             1914
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3149:72:

 14650 do 14651 ic=1,nc                                                     1914
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3150:72:

       q0=dot_product(w,y(:,ic))                                            1915
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3151:72:

       if(q0 .gt. pmin)goto 14671                                           1915
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3152:72:

       jerr =8000+ic                                                        1915
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3153:72:

       return                                                               1915
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3154:72:

 14671 continue                                                             1916
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3155:72:

       if(q0 .lt. 1.0-pmin)goto 14691                                       1916
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3156:72:

       jerr =9000+ic                                                        1916
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3157:72:

       return                                                               1916
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3158:72:

 14691 continue                                                             1917
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3159:72:

       b(1:ni,ic)=0.0                                                       1917
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3160:72:

       b(0,ic)=log(q0)                                                      1917
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3161:72:

       dev1=dev1-q0*b(0,ic)                                                 1918
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3162:72:

 14651 continue                                                             1919
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3163:72:

 14652 continue                                                             1919
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3164:72:

       iy=0                                                                 1919
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3165:72:

       al=0.0                                                               1920
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3166:72:

       if(nonzero(no*nc,g) .ne. 0)goto 14711                                1921
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3167:72:

       b(0,:)=b(0,:)-sum(b(0,:))/nc                                         1921
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3168:72:

       sxp=0.0                                                              1922
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3169:72:

 14720 do 14721 ic=1,nc                                                     1922
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3170:72:

       q(:,ic)=exp(b(0,ic))                                                 1922
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3171:72:

       sxp=sxp+q(:,ic)                                                      1922
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3172:72:

 14721 continue                                                             1923
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3173:72:

 14722 continue                                                             1923
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3174:72:

       goto 14731                                                           1924
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3175:72:

 14711 continue                                                             1924
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3176:72:

 14740 do 14741 i=1,no                                                      1924
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3177:72:

       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         1924
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3178:72:

 14741 continue                                                             1924
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3179:72:

 14742 continue                                                             1924
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3180:72:

       sxp=0.0                                                              1925
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3181:72:

       call kazero(nc,no,y,g,w,b(0,:),jerr)                                 1925
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3182:72:

       if(jerr.ne.0) return                                                 1926
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3183:72:

       dev1=0.0                                                             1927
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3184:72:

 14750 do 14751 ic=1,nc                                                     1927
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3185:72:

       q(:,ic)=b(0,ic)+g(:,ic)                                              1928
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3186:72:

       dev1=dev1-dot_product(w,y(:,ic)*q(:,ic))                             1929
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3187:72:

       q(:,ic)=exp(q(:,ic))                                                 1929
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3188:72:

       sxp=sxp+q(:,ic)                                                      1930
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3189:72:

 14751 continue                                                             1931
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3190:72:

 14752 continue                                                             1931
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3191:72:

       sxpl=w*log(sxp)                                                      1931
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3192:72:

 14760 do 14761 ic=1,nc                                                     1931
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3193:72:

       dev1=dev1+dot_product(y(:,ic),sxpl)                                  1931
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3194:72:

 14761 continue                                                             1932
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3195:72:

 14762 continue                                                             1932
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3196:72:

 14731 continue                                                             1933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3197:72:

 14701 continue                                                             1933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3198:72:

 14770 do 14771 ic=1,nc                                                     1933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3199:72:

 14780 do 14781 i=1,no                                                      1933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3200:72:

       if(y(i,ic).gt.0.0) dev0=dev0+w(i)*y(i,ic)*log(y(i,ic))               1933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3201:72:

 14781 continue                                                             1933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3202:72:

 14782 continue                                                             1933
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3203:72:

 14771 continue                                                             1934
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3204:72:

 14772 continue                                                             1934
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3205:72:

       dev0=dev0+dev1                                                       1935
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3206:72:

       if(kopt .le. 0)goto 14801                                            1936
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3207:72:

       if(isd .le. 0)goto 14821                                             1936
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3208:72:

       xv=0.25                                                              1936
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3209:72:

       goto 14831                                                           1937
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3210:72:

 14821 continue                                                             1938
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3211:72:

 14840 do 14841 j=1,ni                                                      1938
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3212:72:

       if(ju(j).eq.0)goto 14841                                             1938
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3213:72:

       jb=ix(j)                                                             1938
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3214:72:

       je=ix(j+1)-1                                                         1939
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3215:72:

       xv(j,:)=0.25*(dot_product(w(jx(jb:je)),x(jb:je)**2)-xb(j)**2)        1940
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3216:72:

 14841 continue                                                             1941
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3217:72:

 14842 continue                                                             1941
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3218:72:

 14831 continue                                                             1942
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3219:72:

 14811 continue                                                             1942
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3220:72:

 14801 continue                                                             1943
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3221:72:

       if(flmin .ge. 1.0)goto 14861                                         1943
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3222:72:

       eqs=max(eps,flmin)                                                   1943
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3223:72:

       alf=eqs**(1.0/(nlam-1))                                              1943
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3224:72:

 14861 continue                                                             1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3225:72:

       m=0                                                                  1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3226:72:

       mm=0                                                                 1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3227:72:

       nin=0                                                                1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3228:72:

       nlp=0                                                                1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3229:72:

       mnl=min(mnlam,nlam)                                                  1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3230:72:

       bs=0.0                                                               1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3231:72:

       svr=0.0                                                              1944
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3232:72:

       o=0.0                                                                1945
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3233:72:

       shr=shri*dev0                                                        1945
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3234:72:

       ga=0.0                                                               1946
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3235:72:

 14870 do 14871 ic=1,nc                                                     1946
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3236:72:

       v=q(:,ic)/sxp                                                        1946
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3237:72:

       r=w*(y(:,ic)-v)                                                      1946
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3238:72:

       v=w*v*(1.0-v)                                                        1947
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3239:72:

 14880 do 14881 j=1,ni                                                      1947
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3240:72:

       if(ju(j).eq.0)goto 14881                                             1948
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3241:72:

       jb=ix(j)                                                             1948
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3242:72:

       je=ix(j+1)-1                                                         1948
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3243:72:

       jn=ix(j+1)-ix(j)                                                     1949
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3244:72:

       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 1950
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3245:72:

       gj=dot_product(sc(1:jn),x(jb:je))                                    1951
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3246:72:

       ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))                             1952
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3247:72:

 14881 continue                                                             1953
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3248:72:

 14882 continue                                                             1953
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3249:72:

 14871 continue                                                             1954
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3250:72:

 14872 continue                                                             1954
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3251:72:

 14890 do 14891 ilm=1,nlam                                                  1954
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3252:72:

       al0=al                                                               1955
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3253:72:

       if(flmin .lt. 1.0)goto 14911                                         1955
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3254:72:

       al=ulam(ilm)                                                         1955
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3255:72:

       goto 14901                                                           1956
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3256:72:

 14911 if(ilm .le. 2)goto 14921                                             1956
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3257:72:

       al=al*alf                                                            1956
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3258:72:

       goto 14901                                                           1957
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3259:72:

 14921 if(ilm .ne. 1)goto 14931                                             1957
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3260:72:

       al=big                                                               1957
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3261:72:

       goto 14941                                                           1958
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3262:72:

 14931 continue                                                             1958
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3263:72:

       al0=0.0                                                              1959
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3264:72:

 14950 do 14951 j=1,ni                                                      1959
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3265:72:

       if(ju(j).eq.0)goto 14951                                             1959
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3266:72:

       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            1959
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3267:72:

 14951 continue                                                             1960
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3268:72:

 14952 continue                                                             1960
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3269:72:

       al0=al0/max(bta,1.0e-3)                                              1960
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3270:72:

       al=alf*al0                                                           1961
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3271:72:

 14941 continue                                                             1962
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3272:72:

 14901 continue                                                             1962
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3273:72:

       al2=al*omb                                                           1962
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3274:72:

       al1=al*bta                                                           1962
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3275:72:

       tlam=bta*(2.0*al-al0)                                                1963
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3276:72:

 14960 do 14961 k=1,ni                                                      1963
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3277:72:

       if(iy(k).eq.1)goto 14961                                             1963
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3278:72:

       if(ju(k).eq.0)goto 14961                                             1964
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3279:72:

       if(ga(k).gt.tlam*vp(k)) iy(k)=1                                      1965
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3280:72:

 14961 continue                                                             1966
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3281:72:

 14962 continue                                                             1966
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3282:72:

 10680 continue                                                             1967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3283:72:

 14970 continue                                                             1967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3284:72:

 14971 continue                                                             1967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3285:72:

       ixx=0                                                                1967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3286:72:

       jxx=ixx                                                              1967
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3287:72:

       ig=0                                                                 1968
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3288:72:

 14980 do 14981 ic=1,nc                                                     1968
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3289:72:

       bs(0,ic)=b(0,ic)                                                     1969
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3290:72:

       if(nin.gt.0) bs(m(1:nin),ic)=b(m(1:nin),ic)                          1970
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3291:72:

       xm(0)=0.0                                                            1970
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3292:72:

       svr=0.0                                                              1970
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3293:72:

       o=0.0                                                                1971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3294:72:

 14990 do 14991 i=1,no                                                      1971
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3295:72:

       pic=q(i,ic)/sxp(i)                                                   1972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3296:72:

       if(pic .ge. pfm)goto 15011                                           1972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3297:72:

       pic=0.0                                                              1972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3298:72:

       v(i)=0.0                                                             1972
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3299:72:

       goto 15001                                                           1973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3300:72:

 15011 if(pic .le. pfx)goto 15021                                           1973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3301:72:

       pic=1.0                                                              1973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3302:72:

       v(i)=0.0                                                             1973
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3303:72:

       goto 15031                                                           1974
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3304:72:

 15021 continue                                                             1974
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3305:72:

       v(i)=w(i)*pic*(1.0-pic)                                              1974
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3306:72:

       xm(0)=xm(0)+v(i)                                                     1974
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3307:72:

 15031 continue                                                             1975
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3308:72:

 15001 continue                                                             1975
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3309:72:

       r(i)=w(i)*(y(i,ic)-pic)                                              1975
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3310:72:

       svr=svr+r(i)                                                         1976
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3311:72:

 14991 continue                                                             1977
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3312:72:

 14992 continue                                                             1977
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3313:72:

       if(xm(0).le.vmin)goto 14981                                          1977
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3314:72:

       ig=1                                                                 1978
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3315:72:

 15040 do 15041 j=1,ni                                                      1978
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3316:72:

       if(iy(j).eq.0)goto 15041                                             1979
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3317:72:

       jb=ix(j)                                                             1979
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3318:72:

       je=ix(j+1)-1                                                         1980
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3319:72:

       xm(j)=dot_product(v(jx(jb:je)),x(jb:je))                             1981
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3320:72:

       if(kopt .ne. 0)goto 15061                                            1982
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3321:72:

       xv(j,ic)=dot_product(v(jx(jb:je)),x(jb:je)**2)                       1983
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3322:72:

       xv(j,ic)=(xv(j,ic)-2.0*xb(j)*xm(j)+xm(0)*xb(j)**2)/xs(j)**2          1984
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3323:72:

 15061 continue                                                             1985
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3324:72:

 15041 continue                                                             1986
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3325:72:

 15042 continue                                                             1986
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3326:72:

 15070 continue                                                             1986
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3327:72:

 15071 continue                                                             1986
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3328:72:

       nlp=nlp+1                                                            1986
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3329:72:

       dlx=0.0                                                              1987
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3330:72:

 15080 do 15081 k=1,ni                                                      1987
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3331:72:

       if(iy(k).eq.0)goto 15081                                             1988
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3332:72:

       jb=ix(k)                                                             1988
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3333:72:

       je=ix(k+1)-1                                                         1988
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3334:72:

       jn=ix(k+1)-ix(k)                                                     1988
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3335:72:

       bk=b(k,ic)                                                           1989
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3336:72:

       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 1990
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3337:72:

       gk=dot_product(sc(1:jn),x(jb:je))                                    1991
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3338:72:

       gk=(gk-svr*xb(k))/xs(k)                                              1992
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3339:72:

       u=gk+xv(k,ic)*b(k,ic)                                                1992
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3340:72:

       au=abs(u)-vp(k)*al1                                                  1993
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3341:72:

       if(au .gt. 0.0)goto 15101                                            1993
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3342:72:

       b(k,ic)=0.0                                                          1993
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3343:72:

       goto 15111                                                           1994
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3344:72:

 15101 continue                                                             1994
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3345:72:

       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              1994
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3346:72:

 15111 continue                                                             1995
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3347:72:

 15091 continue                                                             1995
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3348:72:

       d=b(k,ic)-bk                                                         1995
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3349:72:

       if(abs(d).le.0.0)goto 15081                                          1996
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3350:72:

       dlx=max(dlx,xv(k,ic)*d**2)                                           1997
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3351:72:

       if(mm(k) .ne. 0)goto 15131                                           1997
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3352:72:

       nin=nin+1                                                            1998
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3353:72:

       if(nin .le. nx)goto 15151                                            1998
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3354:72:

       jxx=1                                                                1998
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3355:72:

       goto 15082                                                           1998
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3356:72:

 15151 continue                                                             1999
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3357:72:

       mm(k)=nin                                                            1999
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3358:72:

       m(nin)=k                                                             2000
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3359:72:

       xm(k)=dot_product(v(jx(jb:je)),x(jb:je))                             2001
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3360:72:

 15131 continue                                                             2002
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3361:72:

       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              2003
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3362:72:

       o=o+d*(xb(k)/xs(k))                                                  2004
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3363:72:

       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  2005
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3364:72:

 15081 continue                                                             2006
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3365:72:

 15082 continue                                                             2006
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3366:72:

       if(jxx.gt.0)goto 15072                                               2007
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3367:72:

       d=svr/xm(0)                                                          2008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3368:72:

       if(d .eq. 0.0)goto 15171                                             2008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3369:72:

       b(0,ic)=b(0,ic)+d                                                    2008
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3370:72:

       dlx=max(dlx,xm(0)*d**2)                                              2009
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3371:72:

       r=r-d*v                                                              2009
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3372:72:

       svr=svr-d*xm(0)                                                      2010
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3373:72:

 15171 continue                                                             2011
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3374:72:

       if(dlx.lt.shr)goto 15072                                             2011
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3375:72:

       if(nlp .le. maxit)goto 15191                                         2011
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3376:72:

       jerr=-ilm                                                            2011
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3377:72:

       return                                                               2011
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3378:72:

 15191 continue                                                             2012
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3379:72:

 15200 continue                                                             2012
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3380:72:

 15201 continue                                                             2012
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3381:72:

       nlp=nlp+1                                                            2012
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3382:72:

       dlx=0.0                                                              2013
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3383:72:

 15210 do 15211 l=1,nin                                                     2013
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3384:72:

       k=m(l)                                                               2013
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3385:72:

       jb=ix(k)                                                             2013
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3386:72:

       je=ix(k+1)-1                                                         2014
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3387:72:

       jn=ix(k+1)-ix(k)                                                     2014
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3388:72:

       bk=b(k,ic)                                                           2015
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3389:72:

       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 2016
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3390:72:

       gk=dot_product(sc(1:jn),x(jb:je))                                    2017
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3391:72:

       gk=(gk-svr*xb(k))/xs(k)                                              2018
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3392:72:

       u=gk+xv(k,ic)*b(k,ic)                                                2018
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3393:72:

       au=abs(u)-vp(k)*al1                                                  2019
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3394:72:

       if(au .gt. 0.0)goto 15231                                            2019
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3395:72:

       b(k,ic)=0.0                                                          2019
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3396:72:

       goto 15241                                                           2020
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3397:72:

 15231 continue                                                             2020
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3398:72:

       b(k,ic)=sign(au,u)/(xv(k,ic)+vp(k)*al2)                              2020
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3399:72:

 15241 continue                                                             2021
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3400:72:

 15221 continue                                                             2021
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3401:72:

       d=b(k,ic)-bk                                                         2021
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3402:72:

       if(abs(d).le.0.0)goto 15211                                          2022
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3403:72:

       dlx=max(dlx,xv(k,ic)*d**2)                                           2023
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3404:72:

       r(jx(jb:je))=r(jx(jb:je))-d*v(jx(jb:je))*x(jb:je)/xs(k)              2024
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3405:72:

       o=o+d*(xb(k)/xs(k))                                                  2025
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3406:72:

       svr=svr-d*(xm(k)-xb(k)*xm(0))/xs(k)                                  2026
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3407:72:

 15211 continue                                                             2027
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3408:72:

 15212 continue                                                             2027
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3409:72:

       d=svr/xm(0)                                                          2028
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3410:72:

       if(d .eq. 0.0)goto 15261                                             2028
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3411:72:

       b(0,ic)=b(0,ic)+d                                                    2028
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3412:72:

       dlx=max(dlx,xm(0)*d**2)                                              2029
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3413:72:

       r=r-d*v                                                              2029
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3414:72:

       svr=svr-d*xm(0)                                                      2030
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3415:72:

 15261 continue                                                             2031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3416:72:

       if(dlx.lt.shr)goto 15202                                             2031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3417:72:

       if(nlp .le. maxit)goto 15281                                         2031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3418:72:

       jerr=-ilm                                                            2031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3419:72:

       return                                                               2031
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3420:72:

 15281 continue                                                             2032
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3421:72:

       goto 15201                                                           2033
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3422:72:

 15202 continue                                                             2033
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3423:72:

       goto 15071                                                           2034
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3424:72:

 15072 continue                                                             2034
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3425:72:

       if(jxx.gt.0)goto 14982                                               2035
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3426:72:

       if(xm(0)*(b(0,ic)-bs(0,ic))**2.gt.shr) ixx=1                         2036
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3427:72:

       if(ixx .ne. 0)goto 15301                                             2037
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3428:72:

 15310 do 15311 j=1,nin                                                     2037
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3429:72:

       k=m(j)                                                               2038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3430:72:

       if(xv(k,ic)*(b(k,ic)-bs(k,ic))**2 .le. shr)goto 15331                2038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3431:72:

       ixx=1                                                                2038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3432:72:

       goto 15312                                                           2038
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3433:72:

 15331 continue                                                             2039
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3434:72:

 15311 continue                                                             2040
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3435:72:

 15312 continue                                                             2040
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3436:72:

 15301 continue                                                             2041
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3437:72:

       sc=b(0,ic)+g(:,ic)                                                   2041
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3438:72:

       b0=0.0                                                               2042
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3439:72:

 15340 do 15341 j=1,nin                                                     2042
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3440:72:

       l=m(j)                                                               2042
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3441:72:

       jb=ix(l)                                                             2042
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3442:72:

       je=ix(l+1)-1                                                         2043
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3443:72:

       sc(jx(jb:je))=sc(jx(jb:je))+b(l,ic)*x(jb:je)/xs(l)                   2044
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3444:72:

       b0=b0-b(l,ic)*xb(l)/xs(l)                                            2045
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3445:72:

 15341 continue                                                             2046
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3446:72:

 15342 continue                                                             2046
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3447:72:

       sc=min(max(exmn,sc+b0),exmx)                                         2047
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3448:72:

       sxp=sxp-q(:,ic)                                                      2048
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3449:72:

       q(:,ic)=min(max(emin*sxp,exp(sc)),emax*sxp)                          2049
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3450:72:

       sxp=sxp+q(:,ic)                                                      2050
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3451:72:

 14981 continue                                                             2051
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3452:72:

 14982 continue                                                             2051
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3453:72:

       s=-sum(b(0,:))/nc                                                    2051
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3454:72:

       b(0,:)=b(0,:)+s                                                      2051
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3455:72:

       sc=s                                                                 2051
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3456:72:

       b0=0.0                                                               2052
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3457:72:

 15350 do 15351 j=1,nin                                                     2052
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3458:72:

       l=m(j)                                                               2053
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3459:72:

       if(vp(l) .gt. 0.0)goto 15371                                         2053
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3460:72:

       s=sum(b(l,:))/nc                                                     2053
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3461:72:

       goto 15381                                                           2054
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3462:72:

 15371 continue                                                             2054
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3463:72:

       s=elc(parm,nc,b(l,:),is)                                             2054
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3464:72:

 15381 continue                                                             2055
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3465:72:

 15361 continue                                                             2055
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3466:72:

       b(l,:)=b(l,:)-s                                                      2056
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3467:72:

       jb=ix(l)                                                             2056
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3468:72:

       je=ix(l+1)-1                                                         2057
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3469:72:

       sc(jx(jb:je))=sc(jx(jb:je))-s*x(jb:je)/xs(l)                         2058
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3470:72:

       b0=b0+s*xb(l)/xs(l)                                                  2059
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3471:72:

 15351 continue                                                             2060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3472:72:

 15352 continue                                                             2060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3473:72:

       sc=sc+b0                                                             2060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3474:72:

       sc=exp(sc)                                                           2060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3475:72:

       sxp=sxp*sc                                                           2060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3476:72:

 15390 do 15391 ic=1,nc                                                     2060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3477:72:

       q(:,ic)=q(:,ic)*sc                                                   2060
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3478:72:

 15391 continue                                                             2061
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3479:72:

 15392 continue                                                             2061
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3480:72:

       if(jxx.gt.0)goto 14972                                               2061
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3481:72:

       if(ig.eq.0)goto 14972                                                2062
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3482:72:

       if(ixx .ne. 0)goto 15411                                             2063
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3483:72:

 15420 do 15421 j=1,ni                                                      2063
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3484:72:

       if(iy(j).eq.1)goto 15421                                             2063
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3485:72:

       if(ju(j).eq.0)goto 15421                                             2063
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3486:72:

       ga(j)=0.0                                                            2063
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3487:72:

 15421 continue                                                             2064
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3488:72:

 15422 continue                                                             2064
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3489:72:

 15430 do 15431 ic=1,nc                                                     2064
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3490:72:

       v=q(:,ic)/sxp                                                        2064
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3491:72:

       r=w*(y(:,ic)-v)                                                      2064
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3492:72:

       v=w*v*(1.0-v)                                                        2065
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3493:72:

 15440 do 15441 j=1,ni                                                      2065
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3494:72:

       if(iy(j).eq.1)goto 15441                                             2065
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3495:72:

       if(ju(j).eq.0)goto 15441                                             2066
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3496:72:

       jb=ix(j)                                                             2066
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3497:72:

       je=ix(j+1)-1                                                         2066
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3498:72:

       jn=ix(j+1)-ix(j)                                                     2067
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3499:72:

       sc(1:jn)=r(jx(jb:je))+o*v(jx(jb:je))                                 2068
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3500:72:

       gj=dot_product(sc(1:jn),x(jb:je))                                    2069
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3501:72:

       ga(j)=max(ga(j),abs(gj-svr*xb(j))/xs(j))                             2070
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3502:72:

 15441 continue                                                             2071
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3503:72:

 15442 continue                                                             2071
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3504:72:

 15431 continue                                                             2072
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3505:72:

 15432 continue                                                             2072
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3506:72:

 15450 do 15451 k=1,ni                                                      2072
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3507:72:

       if(iy(k).eq.1)goto 15451                                             2072
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3508:72:

       if(ju(k).eq.0)goto 15451                                             2073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3509:72:

       if(ga(k) .le. al1*vp(k))goto 15471                                   2073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3510:72:

       iy(k)=1                                                              2073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3511:72:

       ixx=1                                                                2073
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3512:72:

 15471 continue                                                             2074
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3513:72:

 15451 continue                                                             2075
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3514:72:

 15452 continue                                                             2075
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3515:72:

       if(ixx.eq.1) go to 10680                                             2076
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3516:72:

       goto 14972                                                           2077
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3517:72:

 15411 continue                                                             2078
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3518:72:

       goto 14971                                                           2079
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3519:72:

 14972 continue                                                             2079
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3520:72:

       if(jxx .le. 0)goto 15491                                             2079
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3521:72:

       jerr=-10000-ilm                                                      2079
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3522:72:

       goto 14892                                                           2079
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3523:72:

 15491 continue                                                             2079
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3524:72:

       devi=0.0                                                             2080
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3525:72:

 15500 do 15501 ic=1,nc                                                     2081
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3526:72:

       if(nin.gt.0) a(1:nin,ic,ilm)=b(m(1:nin),ic)                          2081
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3527:72:

       a0(ic,ilm)=b(0,ic)                                                   2082
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3528:72:

 15510 do 15511 i=1,no                                                      2082
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3529:72:

       if(y(i,ic).le.0.0)goto 15511                                         2083
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3530:72:

       devi=devi-w(i)*y(i,ic)*log(q(i,ic)/sxp(i))                           2084
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3531:72:

 15511 continue                                                             2085
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3532:72:

 15512 continue                                                             2085
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3533:72:

 15501 continue                                                             2086
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3534:72:

 15502 continue                                                             2086
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3535:72:

       kin(ilm)=nin                                                         2086
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3536:72:

       alm(ilm)=al                                                          2086
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3537:72:

       lmu=ilm                                                              2087
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3538:72:

       dev(ilm)=(dev1-devi)/dev0                                            2087
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3539:72:

       if(ig.eq.0)goto 14892                                                2088
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3540:72:

       if(ilm.lt.mnl)goto 14891                                             2088
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3541:72:

       if(flmin.ge.1.0)goto 14891                                           2089
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3542:72:

       if(nintot(ni,nx,nc,a(1,1,ilm),m,nin,is).gt.ne)goto 14892             2090
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3543:72:

       if(dev(ilm).gt.devmax)goto 14892                                     2090
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3544:72:

       if(dev(ilm)-dev(ilm-1).lt.sml)goto 14892                             2091
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3545:72:

 14891 continue                                                             2092
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3546:72:

 14892 continue                                                             2092
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3547:72:

       g=log(q)                                                             2092
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3548:72:

 15520 do 15521 i=1,no                                                      2092
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3549:72:

       g(i,:)=g(i,:)-sum(g(i,:))/nc                                         2092
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3550:72:

 15521 continue                                                             2093
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3551:72:

 15522 continue                                                             2093
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3552:72:

       deallocate(sxp,b,bs,v,r,xv,q,mm,is,xm,sc,ga,iy)                      2094
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3553:72:

       return                                                               2095
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3554:72:

       end                                                                  2096
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3555:72:

       subroutine lcmodval(nc,nx,a0,ca,ia,nin,x,ix,jx,n,f)                  2097
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3556:72:

       real a0(nc),ca(nx,nc),x(*),f(nc,n)                                   2097
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3557:72:

       integer ia(*),ix(*),jx(*)                                            2098
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3558:72:

 15530 do 15531 ic=1,nc                                                     2098
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3559:72:

       f(ic,:)=a0(ic)                                                       2098
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3560:72:

 15531 continue                                                             2099
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3561:72:

 15532 continue                                                             2099
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3562:72:

 15540 do 15541 j=1,nin                                                     2099
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3563:72:

       k=ia(j)                                                              2099
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3564:72:

       kb=ix(k)                                                             2099
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3565:72:

       ke=ix(k+1)-1                                                         2100
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3566:72:

 15550 do 15551 ic=1,nc                                                     2100
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3567:72:

       f(ic,jx(kb:ke))=f(ic,jx(kb:ke))+ca(j,ic)*x(kb:ke)                    2100
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3568:72:

 15551 continue                                                             2101
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3569:72:

 15552 continue                                                             2101
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3570:72:

 15541 continue                                                             2102
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3571:72:

 15542 continue                                                             2102
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3572:72:

       return                                                               2103
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3573:72:

       end                                                                  2104
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3574:72:

       subroutine coxnet (parm,no,ni,x,y,d,g,w,jd,vp,ne,nx,nlam,flmin,ula   2106
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3576:72:

       real x(no,ni),y(no),d(no),g(no),w(no),vp(ni),ulam(nlam)              2107
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3577:72:

       real ca(nx,nlam),dev(nlam),alm(nlam)                                 2108
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3578:72:

       integer jd(*),ia(nx),nin(nlam)                                       2109
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3581:72:

       if(maxval(vp) .gt. 0.0)goto 15571                                    2113
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3582:72:

       jerr=10000                                                           2113
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3583:72:

       return                                                               2113
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3584:72:

 15571 continue                                                             2114
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3585:72:

       allocate(ww(1:no),stat=jerr)                                         2115
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3586:72:

       allocate(ju(1:ni),stat=ierr)                                         2115
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3587:72:

       jerr=jerr+ierr                                                       2116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3588:72:

       allocate(vq(1:ni),stat=ierr)                                         2116
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3589:72:

       jerr=jerr+ierr                                                       2117
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3590:72:

       if(isd .le. 0)goto 15591                                             2117
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3591:72:

       allocate(xs(1:ni),stat=ierr)                                         2117
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3592:72:

       jerr=jerr+ierr                                                       2117
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3593:72:

 15591 continue                                                             2118
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3594:72:

       if(jerr.ne.0) return                                                 2119
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3595:72:

       call chkvars(no,ni,x,ju)                                             2120
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3596:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 2121
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3597:72:

       if(maxval(ju) .gt. 0)goto 15611                                      2121
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3598:72:

       jerr=7777                                                            2121
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3599:72:

       return                                                               2121
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3600:72:

 15611 continue                                                             2122
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3601:72:

       vq=max(0.0,vp)                                                       2122
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3602:72:

       vq=vq*ni/sum(vq)                                                     2123
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3603:72:

       ww=max(0.0,w)                                                        2123
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3604:72:

       sw=sum(ww)                                                           2124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3605:72:

       if(sw .gt. 0.0)goto 15631                                            2124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3606:72:

       jerr=9999                                                            2124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3607:72:

       return                                                               2124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3608:72:

 15631 continue                                                             2124
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3609:72:

       ww=ww/sw                                                             2125
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3610:72:

       call cstandard(no,ni,x,ww,ju,isd,xs)                                 2126
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3611:72:

       call coxnet1(parm,no,ni,x,y,d,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr   2128
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3613:72:

       if(jerr.gt.0) return                                                 2128
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3614:72:

       dev0=2.0*sw*dev0                                                     2129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3615:72:

       if(isd .le. 0)goto 15651                                             2129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3616:72:

 15660 do 15661 k=1,lmu                                                     2129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3617:72:

       nk=nin(k)                                                            2129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3618:72:

       ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                                   2129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3619:72:

 15661 continue                                                             2129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3620:72:

 15662 continue                                                             2129
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3621:72:

 15651 continue                                                             2130
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3622:72:

       deallocate(ww,ju,vq)                                                 2130
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3623:72:

       if(isd.gt.0) deallocate(xs)                                          2131
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3624:72:

       return                                                               2132
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3625:72:

       end                                                                  2133
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3626:72:

       subroutine cstandard (no,ni,x,w,ju,isd,xs)                           2134
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3627:72:

       real x(no,ni),w(no),xs(ni)                                           2134
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3628:72:

       integer ju(ni)                                                       2135
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3629:72:

 15670 do 15671 j=1,ni                                                      2135
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3630:72:

       if(ju(j).eq.0)goto 15671                                             2136
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3631:72:

       xm=dot_product(w,x(:,j))                                             2136
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3632:72:

       x(:,j)=x(:,j)-xm                                                     2137
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3633:72:

       if(isd .le. 0)goto 15691                                             2137
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3634:72:

       xs(j)=sqrt(dot_product(w,x(:,j)**2))                                 2137
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3635:72:

       x(:,j)=x(:,j)/xs(j)                                                  2137
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3636:72:

 15691 continue                                                             2138
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3637:72:

 15671 continue                                                             2139
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3638:72:

 15672 continue                                                             2139
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3639:72:

       return                                                               2140
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3640:72:

       end                                                                  2141
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3641:72:

       subroutine coxnet1(parm,no,ni,x,y,d,g,q,ju,vp,ne,nx,nlam,flmin,ula   2143
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3643:72:

       parameter(sml=0.001, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99)   2144
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3644:72:

       real x(no,ni),y(no),q(no),d(no),g(no),vp(ni),ulam(nlam)              2145
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3645:72:

       real ao(nx,nlam),dev(nlam),alm(nlam)                                 2146
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3646:72:

       integer ju(ni),m(nx),kin(nlam)                                       2147
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3650:72:

       allocate(e(1:no),stat=jerr)                                          2153
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3651:72:

       allocate(uu(1:no),stat=ierr)                                         2153
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3652:72:

       jerr=jerr+ierr                                                       2154
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3653:72:

       allocate(f(1:no),stat=ierr)                                          2154
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3654:72:

       jerr=jerr+ierr                                                       2155
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3655:72:

       allocate(w(1:no),stat=ierr)                                          2155
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3656:72:

       jerr=jerr+ierr                                                       2156
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3657:72:

       allocate(v(1:ni),stat=ierr)                                          2156
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3658:72:

       jerr=jerr+ierr                                                       2157
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3659:72:

       allocate(a(1:ni),stat=ierr)                                          2157
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3660:72:

       jerr=jerr+ierr                                                       2158
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3661:72:

       allocate(as(1:ni),stat=ierr)                                         2158
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3662:72:

       jerr=jerr+ierr                                                       2159
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3663:72:

       allocate(xs(1:ni),stat=ierr)                                         2159
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3664:72:

       jerr=jerr+ierr                                                       2160
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3665:72:

       allocate(ga(1:ni),stat=ierr)                                         2160
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3666:72:

       jerr=jerr+ierr                                                       2161
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3667:72:

       allocate(ixx(1:ni),stat=ierr)                                        2161
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3668:72:

       jerr=jerr+ierr                                                       2162
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3669:72:

       allocate(jp(1:no),stat=ierr)                                         2162
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3670:72:

       jerr=jerr+ierr                                                       2163
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3671:72:

       allocate(kp(1:no),stat=ierr)                                         2163
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3672:72:

       jerr=jerr+ierr                                                       2164
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3673:72:

       allocate(dk(1:no),stat=ierr)                                         2164
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3674:72:

       jerr=jerr+ierr                                                       2165
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3675:72:

       allocate(wr(1:no),stat=ierr)                                         2165
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3676:72:

       jerr=jerr+ierr                                                       2166
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3677:72:

       allocate(dq(1:no),stat=ierr)                                         2166
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3678:72:

       jerr=jerr+ierr                                                       2167
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3679:72:

       allocate(mm(1:ni),stat=ierr)                                         2167
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3680:72:

       jerr=jerr+ierr                                                       2168
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3681:72:

       if(jerr.ne.0)go to 11790                                             2169
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3682:72:

       call groups(no,y,d,q,nk,kp,jp,t0,jerr)                               2170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3683:72:

       if(jerr.ne.0) go to 11790                                            2170
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3684:72:

       alpha=parm                                                           2171
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3685:72:

       oma=1.0-alpha                                                        2171
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3686:72:

       nlm=0                                                                2171
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3687:72:

       ixx=0                                                                2171
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3688:72:

       al=0.0                                                               2172
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3689:72:

       dq=d*q                                                               2172
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3690:72:

       call died(no,nk,dq,kp,jp,dk)                                         2173
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3691:72:

       a=0.0                                                                2173
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3692:72:

       f(1)=0.0                                                             2173
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3693:72:

       fmax=log(huge(f(1))*0.1)                                             2174
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3694:72:

       if(nonzero(no,g) .eq. 0)goto 15711                                   2174
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3695:72:

       f=g-dot_product(q,g)                                                 2175
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3696:72:

       e=q*exp(sign(min(abs(f),fmax),f))                                    2176
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3697:72:

       goto 15721                                                           2177
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3698:72:

 15711 continue                                                             2177
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3699:72:

       f=0.0                                                                2177
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3700:72:

       e=q                                                                  2177
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3701:72:

 15721 continue                                                             2178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3702:72:

 15701 continue                                                             2178
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3703:72:

       r0=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)                                 2179
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3704:72:

       rr=-(dot_product(dk(1:nk),log(dk(1:nk)))+r0)                         2179
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3705:72:

       dev0=rr                                                              2180
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3706:72:

 15730 do 15731 i=1,no                                                      2180
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3707:72:

       if((y(i) .ge. t0) .and. (q(i) .gt. 0.0))goto 15751                   2180
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3708:72:

       w(i)=0.0                                                             2180
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3709:72:

       wr(i)=w(i)                                                           2180
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3710:72:

 15751 continue                                                             2180
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3711:72:

 15731 continue                                                             2181
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3712:72:

 15732 continue                                                             2181
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3713:72:

       call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)                         2182
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3714:72:

       if(jerr.ne.0) go to 11790                                            2183
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3715:72:

       if(flmin .ge. 1.0)goto 15771                                         2183
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3716:72:

       eqs=max(eps,flmin)                                                   2183
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3717:72:

       alf=eqs**(1.0/(nlam-1))                                              2183
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3718:72:

 15771 continue                                                             2184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3719:72:

       m=0                                                                  2184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3720:72:

       mm=0                                                                 2184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3721:72:

       nlp=0                                                                2184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3722:72:

       nin=nlp                                                              2184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3723:72:

       mnl=min(mnlam,nlam)                                                  2184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3724:72:

       as=0.0                                                               2184
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3725:72:

       cthr=cthri*dev0                                                      2185
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3726:72:

 15780 do 15781 j=1,ni                                                      2185
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3727:72:

       if(ju(j).eq.0)goto 15781                                             2185
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3728:72:

       ga(j)=abs(dot_product(wr,x(:,j)))                                    2185
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3729:72:

 15781 continue                                                             2186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3730:72:

 15782 continue                                                             2186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3731:72:

 15790 do 15791 ilm=1,nlam                                                  2186
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3732:72:

       al0=al                                                               2187
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3733:72:

       if(flmin .lt. 1.0)goto 15811                                         2187
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3734:72:

       al=ulam(ilm)                                                         2187
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3735:72:

       goto 15801                                                           2188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3736:72:

 15811 if(ilm .le. 2)goto 15821                                             2188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3737:72:

       al=al*alf                                                            2188
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3738:72:

       goto 15801                                                           2189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3739:72:

 15821 if(ilm .ne. 1)goto 15831                                             2189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3740:72:

       al=big                                                               2189
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3741:72:

       goto 15841                                                           2190
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3742:72:

 15831 continue                                                             2190
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3743:72:

       al0=0.0                                                              2191
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3744:72:

 15850 do 15851 j=1,ni                                                      2191
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3745:72:

       if(ju(j).eq.0)goto 15851                                             2191
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3746:72:

       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            2191
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3747:72:

 15851 continue                                                             2192
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3748:72:

 15852 continue                                                             2192
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3749:72:

       al0=al0/max(parm,1.0e-3)                                             2192
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3750:72:

       al=alf*al0                                                           2193
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3751:72:

 15841 continue                                                             2194
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3752:72:

 15801 continue                                                             2194
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3753:72:

       sa=alpha*al                                                          2194
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3754:72:

       omal=oma*al                                                          2194
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3755:72:

       tlam=alpha*(2.0*al-al0)                                              2195
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3756:72:

 15860 do 15861 k=1,ni                                                      2195
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3757:72:

       if(ixx(k).eq.1)goto 15861                                            2195
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3758:72:

       if(ju(k).eq.0)goto 15861                                             2196
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3759:72:

       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     2197
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3760:72:

 15861 continue                                                             2198
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3761:72:

 15862 continue                                                             2198
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3762:72:

 10680 continue                                                             2199
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3763:72:

 15870 continue                                                             2199
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3764:72:

 15871 continue                                                             2199
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3765:72:

       if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                                2200
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3766:72:

       call vars(no,ni,x,w,ixx,v)                                           2201
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3767:72:

 15880 continue                                                             2201
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3768:72:

 15881 continue                                                             2201
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3769:72:

       nlp=nlp+1                                                            2201
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3770:72:

       dli=0.0                                                              2202
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3771:72:

 15890 do 15891 j=1,ni                                                      2202
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3772:72:

       if(ixx(j).eq.0)goto 15891                                            2203
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3773:72:

       u=a(j)*v(j)+dot_product(wr,x(:,j))                                   2204
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3774:72:

       if(abs(u) .gt. vp(j)*sa)goto 15911                                   2204
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3775:72:

       at=0.0                                                               2204
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3776:72:

       goto 15921                                                           2205
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3777:72:

 15911 continue                                                             2205
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3778:72:

       at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)                         2205
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3779:72:

 15921 continue                                                             2206
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3780:72:

 15901 continue                                                             2206
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3781:72:

       if(at .eq. a(j))goto 15941                                           2206
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3782:72:

       del=at-a(j)                                                          2206
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3783:72:

       a(j)=at                                                              2206
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3784:72:

       dli=max(dli,v(j)*del**2)                                             2207
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3785:72:

       wr=wr-del*w*x(:,j)                                                   2207
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3786:72:

       f=f+del*x(:,j)                                                       2208
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3787:72:

       if(mm(j) .ne. 0)goto 15961                                           2208
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3788:72:

       nin=nin+1                                                            2208
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3789:72:

       if(nin.gt.nx)goto 15892                                              2209
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3790:72:

       mm(j)=nin                                                            2209
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3791:72:

       m(nin)=j                                                             2210
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3792:72:

 15961 continue                                                             2211
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3793:72:

 15941 continue                                                             2212
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3794:72:

 15891 continue                                                             2213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3795:72:

 15892 continue                                                             2213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3796:72:

       if(nin.gt.nx)goto 15882                                              2213
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3797:72:

       if(dli.lt.cthr)goto 15882                                            2214
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3798:72:

       if(nlp .le. maxit)goto 15981                                         2214
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3799:72:

       jerr=-ilm                                                            2214
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3800:72:

       return                                                               2214
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3801:72:

 15981 continue                                                             2215
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3802:72:

 15990 continue                                                             2215
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3803:72:

 15991 continue                                                             2215
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3804:72:

       nlp=nlp+1                                                            2215
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3805:72:

       dli=0.0                                                              2216
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3806:72:

 16000 do 16001 l=1,nin                                                     2216
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3807:72:

       j=m(l)                                                               2217
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3808:72:

       u=a(j)*v(j)+dot_product(wr,x(:,j))                                   2218
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3809:72:

       if(abs(u) .gt. vp(j)*sa)goto 16021                                   2218
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3810:72:

       at=0.0                                                               2218
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3811:72:

       goto 16031                                                           2219
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3812:72:

 16021 continue                                                             2219
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3813:72:

       at=sign(abs(u)-vp(j)*sa,u)/(v(j)+vp(j)*omal)                         2219
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3814:72:

 16031 continue                                                             2220
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3815:72:

 16011 continue                                                             2220
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3816:72:

       if(at .eq. a(j))goto 16051                                           2220
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3817:72:

       del=at-a(j)                                                          2220
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3818:72:

       a(j)=at                                                              2220
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3819:72:

       dli=max(dli,v(j)*del**2)                                             2221
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3820:72:

       wr=wr-del*w*x(:,j)                                                   2221
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3821:72:

       f=f+del*x(:,j)                                                       2222
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3822:72:

 16051 continue                                                             2223
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3823:72:

 16001 continue                                                             2224
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3824:72:

 16002 continue                                                             2224
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3825:72:

       if(dli.lt.cthr)goto 15992                                            2224
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3826:72:

       if(nlp .le. maxit)goto 16071                                         2224
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3827:72:

       jerr=-ilm                                                            2224
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3828:72:

       return                                                               2224
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3829:72:

 16071 continue                                                             2225
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3830:72:

       goto 15991                                                           2226
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3831:72:

 15992 continue                                                             2226
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3832:72:

       goto 15881                                                           2227
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3833:72:

 15882 continue                                                             2227
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3834:72:

       if(nin.gt.nx)goto 15872                                              2228
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3835:72:

       e=q*exp(sign(min(abs(f),fmax),f))                                    2229
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3836:72:

       call outer(no,nk,dq,dk,kp,jp,e,wr,w,jerr,uu)                         2230
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3837:72:

       if(jerr .eq. 0)goto 16091                                            2230
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3838:72:

       jerr=jerr-ilm                                                        2230
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3839:72:

       go to 11790                                                          2230
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3840:72:

 16091 continue                                                             2231
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3841:72:

       ix=0                                                                 2232
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3842:72:

 16100 do 16101 j=1,nin                                                     2232
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3843:72:

       k=m(j)                                                               2233
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3844:72:

       if(v(k)*(a(k)-as(k))**2.lt.cthr)goto 16101                           2233
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3845:72:

       ix=1                                                                 2233
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3846:72:

       goto 16102                                                           2233
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3847:72:

 16101 continue                                                             2234
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3848:72:

 16102 continue                                                             2234
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3849:72:

       if(ix .ne. 0)goto 16121                                              2235
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3850:72:

 16130 do 16131 k=1,ni                                                      2235
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3851:72:

       if(ixx(k).eq.1)goto 16131                                            2235
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3852:72:

       if(ju(k).eq.0)goto 16131                                             2236
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3853:72:

       ga(k)=abs(dot_product(wr,x(:,k)))                                    2237
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3854:72:

       if(ga(k) .le. sa*vp(k))goto 16151                                    2237
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3855:72:

       ixx(k)=1                                                             2237
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3856:72:

       ix=1                                                                 2237
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3857:72:

 16151 continue                                                             2238
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3858:72:

 16131 continue                                                             2239
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3859:72:

 16132 continue                                                             2239
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3860:72:

       if(ix.eq.1) go to 10680                                              2240
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3861:72:

       goto 15872                                                           2241
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3862:72:

 16121 continue                                                             2242
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3863:72:

       goto 15871                                                           2243
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3864:72:

 15872 continue                                                             2243
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3865:72:

       if(nin .le. nx)goto 16171                                            2243
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3866:72:

       jerr=-10000-ilm                                                      2243
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3867:72:

       goto 15792                                                           2243
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3868:72:

 16171 continue                                                             2244
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3869:72:

       if(nin.gt.0) ao(1:nin,ilm)=a(m(1:nin))                               2244
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3870:72:

       kin(ilm)=nin                                                         2245
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3871:72:

       alm(ilm)=al                                                          2245
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3872:72:

       lmu=ilm                                                              2246
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3873:72:

       dev(ilm)=(risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)-r0)/rr                   2247
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3874:72:

       if(ilm.lt.mnl)goto 15791                                             2247
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3875:72:

       if(flmin.ge.1.0)goto 15791                                           2248
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3876:72:

       me=0                                                                 2248
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3877:72:

 16180 do 16181 j=1,nin                                                     2248
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3878:72:

       if(ao(j,ilm).ne.0.0) me=me+1                                         2248
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3879:72:

 16181 continue                                                             2248
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3880:72:

 16182 continue                                                             2248
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3881:72:

       if(me.gt.ne)goto 15792                                               2249
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3882:72:

       if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 15792              2250
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3883:72:

       if(dev(ilm).gt.devmax)goto 15792                                     2251
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3884:72:

 15791 continue                                                             2252
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3885:72:

 15792 continue                                                             2252
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3886:72:

       g=f                                                                  2253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3887:72:

 11790 continue                                                             2253
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3888:72:

       deallocate(e,uu,w,dk,v,xs,f,wr,a,as,jp,kp,dq,mm,ga,ixx)              2254
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3889:72:

       return                                                               2255
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3890:72:

       end                                                                  2256
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3891:72:

       subroutine cxmodval(ca,ia,nin,n,x,f)                                 2257
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3892:72:

       real ca(nin),x(n,*),f(n)                                             2257
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3893:72:

       integer ia(nin)                                                      2258
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3894:72:

       f=0.0                                                                2258
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3895:72:

       if(nin.le.0) return                                                  2259
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3896:72:

 16190 do 16191 i=1,n                                                       2259
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3897:72:

       f(i)=f(i)+dot_product(ca(1:nin),x(i,ia(1:nin)))                      2259
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3898:72:

 16191 continue                                                             2260
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3899:72:

 16192 continue                                                             2260
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3900:72:

       return                                                               2261
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3901:72:

       end                                                                  2262
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3902:72:

       subroutine groups(no,y,d,q,nk,kp,jp,t0,jerr)                         2263
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3903:72:

       real y(no),d(no),q(no)                                               2263
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3904:72:

       integer jp(no),kp(*)                                                 2264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3905:72:

 16200 do 16201 j=1,no                                                      2264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3906:72:

       jp(j)=j                                                              2264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3907:72:

 16201 continue                                                             2264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3908:72:

 16202 continue                                                             2264
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3909:72:

       call psort7(y,jp,1,no)                                               2265
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3910:72:

       nj=0                                                                 2265
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3911:72:

 16210 do 16211 j=1,no                                                      2265
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3912:72:

       if(q(jp(j)).le.0.0)goto 16211                                        2265
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3913:72:

       nj=nj+1                                                              2265
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3914:72:

       jp(nj)=jp(j)                                                         2265
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3915:72:

 16211 continue                                                             2266
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3916:72:

 16212 continue                                                             2266
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3917:72:

       if(nj .ne. 0)goto 16231                                              2266
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3918:72:

       jerr=20000                                                           2266
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3919:72:

       return                                                               2266
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3920:72:

 16231 continue                                                             2267
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3921:72:

       j=1                                                                  2267
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3922:72:

 16240 continue                                                             2267
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3923:72:

 16241 if(d(jp(j)).gt.0.0)goto 16242                                        2267
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3924:72:

       j=j+1                                                                2267
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3925:72:

       if(j.gt.nj)goto 16242                                                2267
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3926:72:

       goto 16241                                                           2268
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3927:72:

 16242 continue                                                             2268
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3928:72:

       if(j .lt. nj-1)goto 16261                                            2268
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3929:72:

       jerr=30000                                                           2268
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3930:72:

       return                                                               2268
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3931:72:

 16261 continue                                                             2269
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3932:72:

       j0=j-1                                                               2269
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3933:72:

       nj=nj-j0                                                             2269
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3934:72:

 16270 do 16271 j=1,nj                                                      2269
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3935:72:

       jp(j)=jp(j+j0)                                                       2269
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3936:72:

 16271 continue                                                             2270
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3937:72:

 16272 continue                                                             2270
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3938:72:

       jerr=0                                                               2270
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3939:72:

       nk=0                                                                 2270
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3940:72:

       t0=y(jp(1))                                                          2270
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3941:72:

       yk=t0                                                                2270
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3942:72:

       j=2                                                                  2271
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3943:72:

 16280 continue                                                             2271
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3944:72:

 16281 continue                                                             2271
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3945:72:

 16290 continue                                                             2272
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3946:72:

 16291 if(d(jp(j)).gt.0.0.and.y(jp(j)).gt.yk)goto 16292                     2272
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3947:72:

       j=j+1                                                                2272
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3948:72:

       if(j.gt.nj)goto 16292                                                2272
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3949:72:

       goto 16291                                                           2273
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3950:72:

 16292 continue                                                             2273
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3951:72:

       nk=nk+1                                                              2273
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3952:72:

       kp(nk)=j-1                                                           2273
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3953:72:

       if(j.gt.nj)goto 16282                                                2274
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3954:72:

       if(j .ne. nj)goto 16311                                              2274
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3955:72:

       nk=nk+1                                                              2274
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3956:72:

       kp(nk)=nj                                                            2274
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3957:72:

       goto 16282                                                           2274
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3958:72:

 16311 continue                                                             2275
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3959:72:

       yk=y(jp(j))                                                          2275
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3960:72:

       j=j+1                                                                2276
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3961:72:

       goto 16281                                                           2277
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3962:72:

 16282 continue                                                             2277
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3963:72:

       return                                                               2278
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3964:72:

       end                                                                  2279
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3965:72:

       subroutine outer(no,nk,d,dk,kp,jp,e,wr,w,jerr,u)                     2280
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3966:72:

       real d(no),dk(nk),wr(no),w(no)                                       2281
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3967:72:

       real e(no),u(no),b,c                                                 2281
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3968:72:

       integer kp(nk),jp(no)                                                2282
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3969:72:

       call usk(no,nk,kp,jp,e,u)                                            2283
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3970:72:

       b=dk(1)/u(1)                                                         2283
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3971:72:

       c=dk(1)/u(1)**2                                                      2283
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3972:72:

       jerr=0                                                               2284
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3973:72:

 16320 do 16321 j=1,kp(1)                                                   2284
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3974:72:

       i=jp(j)                                                              2285
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3975:72:

       w(i)=e(i)*(b-e(i)*c)                                                 2285
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3976:72:

       if(w(i) .gt. 0.0)goto 16341                                          2285
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3977:72:

       jerr=-3                                                              2285
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3978:72:

       return                                                               2285
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3979:72:

 16341 continue                                                             2286
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3980:72:

       wr(i)=d(i)-e(i)*b                                                    2287
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3981:72:

 16321 continue                                                             2288
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3982:72:

 16322 continue                                                             2288
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3983:72:

 16350 do 16351 k=2,nk                                                      2288
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3984:72:

       j1=kp(k-1)+1                                                         2288
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3985:72:

       j2=kp(k)                                                             2289
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3986:72:

       b=b+dk(k)/u(k)                                                       2289
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3987:72:

       c=c+dk(k)/u(k)**2                                                    2290
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3988:72:

 16360 do 16361 j=j1,j2                                                     2290
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3989:72:

       i=jp(j)                                                              2291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3990:72:

       w(i)=e(i)*(b-e(i)*c)                                                 2291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3991:72:

       if(w(i) .gt. 0.0)goto 16381                                          2291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3992:72:

       jerr=-30000                                                          2291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3993:72:

       return                                                               2291
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3994:72:

 16381 continue                                                             2292
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3995:72:

       wr(i)=d(i)-e(i)*b                                                    2293
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3996:72:

 16361 continue                                                             2294
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3997:72:

 16362 continue                                                             2294
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3998:72:

 16351 continue                                                             2295
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:3999:72:

 16352 continue                                                             2295
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4000:72:

       return                                                               2296
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4001:72:

       end                                                                  2297
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4002:72:

       subroutine vars(no,ni,x,w,ixx,v)                                     2298
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4003:72:

       real x(no,ni),w(no),v(ni)                                            2298
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4004:72:

       integer ixx(ni)                                                      2299
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4005:72:

 16390 do 16391 j=1,ni                                                      2299
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4006:72:

       if(ixx(j).gt.0) v(j)=dot_product(w,x(:,j)**2)                        2299
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4007:72:

 16391 continue                                                             2300
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4008:72:

 16392 continue                                                             2300
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4009:72:

       return                                                               2301
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4010:72:

       end                                                                  2302
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4011:72:

       subroutine died(no,nk,d,kp,jp,dk)                                    2303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4012:72:

       real d(no),dk(nk)                                                    2303
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4013:72:

       integer kp(nk),jp(no)                                                2304
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4014:72:

       dk(1)=sum(d(jp(1:kp(1))))                                            2305
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4015:72:

 16400 do 16401 k=2,nk                                                      2305
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4016:72:

       dk(k)=sum(d(jp((kp(k-1)+1):kp(k))))                                  2305
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4017:72:

 16401 continue                                                             2306
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4018:72:

 16402 continue                                                             2306
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4019:72:

       return                                                               2307
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4020:72:

       end                                                                  2308
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4021:72:

       subroutine usk(no,nk,kp,jp,e,u)                                      2309
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4022:72:

       real e(no),u(nk),h                                                   2309
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4023:72:

       integer kp(nk),jp(no)                                                2310
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4024:72:

       h=0.0                                                                2311
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4025:72:

 16410 do 16411 k=nk,1,-1                                                   2311
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4026:72:

       j2=kp(k)                                                             2312
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4027:72:

       j1=1                                                                 2312
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4028:72:

       if(k.gt.1) j1=kp(k-1)+1                                              2313
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4029:72:

 16420 do 16421 j=j2,j1,-1                                                  2313
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4030:72:

       h=h+e(jp(j))                                                         2313
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4031:72:

 16421 continue                                                             2314
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4032:72:

 16422 continue                                                             2314
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4033:72:

       u(k)=h                                                               2315
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4034:72:

 16411 continue                                                             2316
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4035:72:

 16412 continue                                                             2316
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4036:72:

       return                                                               2317
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4037:72:

       end                                                                  2318
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4038:72:

       function risk(no,ni,nk,d,dk,f,e,kp,jp,u)                             2319
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4039:72:

       real d(no),dk(nk),f(no)                                              2320
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4040:72:

       integer kp(nk),jp(no)                                                2320
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4041:72:

       real e(no),u(nk),s                                                   2321
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4042:72:

       call usk(no,nk,kp,jp,e,u)                                            2321
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4043:72:

       u=log(u)                                                             2322
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4044:72:

       risk=dot_product(d,f)-dot_product(dk,u)                              2323
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4045:72:

       return                                                               2324
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4046:72:

       end                                                                  2325
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4047:72:

       subroutine loglike(no,ni,x,y,d,g,w,nlam,a,flog,jerr)                 2326
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4048:72:

       real x(no,ni),y(no),d(no),g(no),w(no),a(ni,nlam),flog(nlam)          2327
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4052:72:

       allocate(e(1:no),stat=jerr)                                          2333
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4053:72:

       allocate(q(1:no),stat=ierr)                                          2333
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4054:72:

       jerr=jerr+ierr                                                       2334
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4055:72:

       allocate(uu(1:no),stat=ierr)                                         2334
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4056:72:

       jerr=jerr+ierr                                                       2335
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4057:72:

       allocate(f(1:no),stat=ierr)                                          2335
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4058:72:

       jerr=jerr+ierr                                                       2336
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4059:72:

       allocate(dk(1:no),stat=ierr)                                         2336
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4060:72:

       jerr=jerr+ierr                                                       2337
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4061:72:

       allocate(jp(1:no),stat=ierr)                                         2337
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4062:72:

       jerr=jerr+ierr                                                       2338
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4063:72:

       allocate(kp(1:no),stat=ierr)                                         2338
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4064:72:

       jerr=jerr+ierr                                                       2339
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4065:72:

       allocate(dq(1:no),stat=ierr)                                         2339
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4066:72:

       jerr=jerr+ierr                                                       2340
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4067:72:

       allocate(xm(1:ni),stat=ierr)                                         2340
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4068:72:

       jerr=jerr+ierr                                                       2341
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4069:72:

       if(jerr.ne.0) go to 11790                                            2342
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4070:72:

       q=max(0.0,w)                                                         2342
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4071:72:

       sw=sum(q)                                                            2343
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4072:72:

       if(sw .gt. 0.0)goto 16441                                            2343
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4073:72:

       jerr=9999                                                            2343
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4074:72:

       go to 11790                                                          2343
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4075:72:

 16441 continue                                                             2344
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4076:72:

       call groups(no,y,d,q,nk,kp,jp,t0,jerr)                               2345
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4077:72:

       if(jerr.ne.0) go to 11790                                            2345
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4078:72:

       fmax=log(huge(e(1))*0.1)                                             2346
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4079:72:

       dq=d*q                                                               2346
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4080:72:

       call died(no,nk,dq,kp,jp,dk)                                         2346
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4081:72:

       gm=dot_product(q,g)/sw                                               2347
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4082:72:

 16450 do 16451 j=1,ni                                                      2347
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4083:72:

       xm(j)=dot_product(q,x(:,j))/sw                                       2347
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4084:72:

 16451 continue                                                             2348
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4085:72:

 16452 continue                                                             2348
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4086:72:

 16460 do 16461 lam=1,nlam                                                  2349
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4087:72:

 16470 do 16471 i=1,no                                                      2349
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4088:72:

       f(i)=g(i)-gm+dot_product(a(:,lam),(x(i,:)-xm))                       2350
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4089:72:

       e(i)=q(i)*exp(sign(min(abs(f(i)),fmax),f(i)))                        2351
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4090:72:

 16471 continue                                                             2352
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4091:72:

 16472 continue                                                             2352
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4092:72:

       flog(lam)=risk(no,ni,nk,dq,dk,f,e,kp,jp,uu)                          2353
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4093:72:

 16461 continue                                                             2354
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4094:72:

 16462 continue                                                             2354
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4095:72:

 11790 continue                                                             2354
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4096:72:

       deallocate(e,uu,dk,f,jp,kp,dq)                                       2355
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4097:72:

       return                                                               2356
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4098:72:

       end                                                                  2357
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4099:72:

       subroutine fishnet (parm,no,ni,x,y,g,w,jd,vp,ne,nx,nlam,flmin,ulam   2359
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4101:72:

       real x(no,ni),y(no),g(no),w(no),vp(ni),ulam(nlam)                    2360
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4102:72:

       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2361
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4103:72:

       integer jd(*),ia(nx),nin(nlam)                                       2362
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4106:72:

       if(maxval(vp) .gt. 0.0)goto 16491                                    2366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4107:72:

       jerr=10000                                                           2366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4108:72:

       return                                                               2366
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4109:72:

 16491 continue                                                             2367
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4110:72:

       if(minval(y) .ge. 0.0)goto 16511                                     2367
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4111:72:

       jerr=8888                                                            2367
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4112:72:

       return                                                               2367
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4113:72:

 16511 continue                                                             2368
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4114:72:

       allocate(ww(1:no),stat=jerr)                                         2369
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4115:72:

       allocate(ju(1:ni),stat=ierr)                                         2369
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4116:72:

       jerr=jerr+ierr                                                       2370
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4117:72:

       allocate(vq(1:ni),stat=ierr)                                         2370
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4118:72:

       jerr=jerr+ierr                                                       2371
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4119:72:

       allocate(xm(1:ni),stat=ierr)                                         2371
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4120:72:

       jerr=jerr+ierr                                                       2372
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4121:72:

       if(isd .le. 0)goto 16531                                             2372
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4122:72:

       allocate(xs(1:ni),stat=ierr)                                         2372
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4123:72:

       jerr=jerr+ierr                                                       2372
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4124:72:

 16531 continue                                                             2373
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4125:72:

       if(jerr.ne.0) return                                                 2374
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4126:72:

       call chkvars(no,ni,x,ju)                                             2375
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4127:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 2376
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4128:72:

       if(maxval(ju) .gt. 0)goto 16551                                      2376
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4129:72:

       jerr=7777                                                            2376
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4130:72:

       go to 11790                                                          2376
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4131:72:

 16551 continue                                                             2377
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4132:72:

       vq=max(0.0,vp)                                                       2377
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4133:72:

       vq=vq*ni/sum(vq)                                                     2378
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4134:72:

       ww=max(0.0,w)                                                        2378
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4135:72:

       sw=sum(ww)                                                           2378
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4136:72:

       if(sw .gt. 0.0)goto 16571                                            2378
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4137:72:

       jerr=9999                                                            2378
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4138:72:

       go to 11790                                                          2378
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4139:72:

 16571 continue                                                             2379
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4140:72:

       ww=ww/sw                                                             2380
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4141:72:

       call lstandard1(no,ni,x,ww,ju,isd,xm,xs)                             2381
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4142:72:

       call fishnet1(parm,no,ni,x,y,g,ww,ju,vq,ne,nx,nlam,flmin,ulam,thr,   2383
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4144:72:

       if(jerr.gt.0) go to 11790                                            2383
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4145:72:

       dev0=2.0*sw*dev0                                                     2384
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4146:72:

 16580 do 16581 k=1,lmu                                                     2384
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4147:72:

       nk=nin(k)                                                            2385
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4148:72:

       if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                      2386
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4149:72:

       a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     2387
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4150:72:

 16581 continue                                                             2388
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4151:72:

 16582 continue                                                             2388
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4152:72:

 11790 continue                                                             2388
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4153:72:

       deallocate(ww,ju,vq,xm)                                              2388
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4154:72:

       if(isd.gt.0) deallocate(xs)                                          2389
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4155:72:

       return                                                               2390
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4156:72:

       end                                                                  2391
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4157:72:

       subroutine fishnet1(parm,no,ni,x,y,g,q,ju,vp,ne,nx,nlam,flmin,ulam   2393
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4159:72:

       parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99   2394
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4161:72:

       real x(no,ni),y(no),g(no),q(no),vp(ni),ulam(nlam)                    2395
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4162:72:

       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2396
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4163:72:

       integer ju(ni),m(nx),kin(nlam)                                       2397
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4166:72:

       allocate(a(1:ni),stat=jerr)                                          2402
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4167:72:

       allocate(as(1:ni),stat=ierr)                                         2402
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4168:72:

       jerr=jerr+ierr                                                       2403
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4169:72:

       allocate(t(1:no),stat=ierr)                                          2403
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4170:72:

       jerr=jerr+ierr                                                       2404
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4171:72:

       allocate(mm(1:ni),stat=ierr)                                         2404
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4172:72:

       jerr=jerr+ierr                                                       2405
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4173:72:

       allocate(ga(1:ni),stat=ierr)                                         2405
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4174:72:

       jerr=jerr+ierr                                                       2406
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4175:72:

       allocate(ixx(1:ni),stat=ierr)                                        2406
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4176:72:

       jerr=jerr+ierr                                                       2407
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4177:72:

       allocate(wr(1:no),stat=ierr)                                         2407
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4178:72:

       jerr=jerr+ierr                                                       2408
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4179:72:

       allocate(v(1:ni),stat=ierr)                                          2408
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4180:72:

       jerr=jerr+ierr                                                       2409
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4181:72:

       allocate(w(1:no),stat=ierr)                                          2409
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4182:72:

       jerr=jerr+ierr                                                       2410
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4183:72:

       allocate(f(1:no),stat=ierr)                                          2410
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4184:72:

       jerr=jerr+ierr                                                       2411
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4185:72:

       if(jerr.ne.0) return                                                 2412
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4186:72:

       bta=parm                                                             2412
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4187:72:

       omb=1.0-bta                                                          2413
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4188:72:

       t=q*y                                                                2413
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4189:72:

       yb=sum(t)                                                            2413
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4190:72:

       fmax=log(huge(bta)*0.1)                                              2414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4191:72:

       if(nonzero(no,g) .ne. 0)goto 16601                                   2414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4192:72:

       w=q*yb                                                               2414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4193:72:

       az=log(yb)                                                           2414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4194:72:

       f=az                                                                 2414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4195:72:

       dv0=yb*(log(yb)-1.0)                                                 2414
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4196:72:

       goto 16611                                                           2415
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4197:72:

 16601 continue                                                             2415
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4198:72:

       w=q*exp(sign(min(abs(g),fmax),g))                                    2415
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4199:72:

       v0=sum(w)                                                            2415
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4200:72:

       eaz=yb/v0                                                            2416
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4201:72:

       w=eaz*w                                                              2416
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4202:72:

       az=log(eaz)                                                          2416
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4203:72:

       f=az+g                                                               2417
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4204:72:

       dv0=dot_product(t,g)-yb*(1.0-az)                                     2418
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4205:72:

 16611 continue                                                             2419
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4206:72:

 16591 continue                                                             2419
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4207:72:

       a=0.0                                                                2419
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4208:72:

       as=0.0                                                               2419
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4209:72:

       wr=t-w                                                               2419
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4210:72:

       v0=yb                                                                2419
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4211:72:

       dvr=-yb                                                              2420
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4212:72:

 16620 do 16621 i=1,no                                                      2420
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4213:72:

       if(t(i).gt.0.0) dvr=dvr+t(i)*log(y(i))                               2420
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4214:72:

 16621 continue                                                             2420
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4215:72:

 16622 continue                                                             2420
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4216:72:

       dvr=dvr-dv0                                                          2420
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4217:72:

       dev0=dvr                                                             2421
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4218:72:

       if(flmin .ge. 1.0)goto 16641                                         2421
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4219:72:

       eqs=max(eps,flmin)                                                   2421
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4220:72:

       alf=eqs**(1.0/(nlam-1))                                              2421
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4221:72:

 16641 continue                                                             2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4222:72:

       m=0                                                                  2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4223:72:

       mm=0                                                                 2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4224:72:

       nlp=0                                                                2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4225:72:

       nin=nlp                                                              2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4226:72:

       mnl=min(mnlam,nlam)                                                  2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4227:72:

       shr=shri*dev0                                                        2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4228:72:

       ixx=0                                                                2422
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4229:72:

       al=0.0                                                               2423
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4230:72:

 16650 do 16651 j=1,ni                                                      2423
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4231:72:

       if(ju(j).eq.0)goto 16651                                             2423
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4232:72:

       ga(j)=abs(dot_product(wr,x(:,j)))                                    2423
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4233:72:

 16651 continue                                                             2424
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4234:72:

 16652 continue                                                             2424
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4235:72:

 16660 do 16661 ilm=1,nlam                                                  2424
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4236:72:

       al0=al                                                               2425
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4237:72:

       if(flmin .lt. 1.0)goto 16681                                         2425
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4238:72:

       al=ulam(ilm)                                                         2425
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4239:72:

       goto 16671                                                           2426
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4240:72:

 16681 if(ilm .le. 2)goto 16691                                             2426
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4241:72:

       al=al*alf                                                            2426
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4242:72:

       goto 16671                                                           2427
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4243:72:

 16691 if(ilm .ne. 1)goto 16701                                             2427
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4244:72:

       al=big                                                               2427
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4245:72:

       goto 16711                                                           2428
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4246:72:

 16701 continue                                                             2428
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4247:72:

       al0=0.0                                                              2429
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4248:72:

 16720 do 16721 j=1,ni                                                      2429
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4249:72:

       if(ju(j).eq.0)goto 16721                                             2429
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4250:72:

       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            2429
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4251:72:

 16721 continue                                                             2430
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4252:72:

 16722 continue                                                             2430
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4253:72:

       al0=al0/max(bta,1.0e-3)                                              2430
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4254:72:

       al=alf*al0                                                           2431
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4255:72:

 16711 continue                                                             2432
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4256:72:

 16671 continue                                                             2432
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4257:72:

       al2=al*omb                                                           2432
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4258:72:

       al1=al*bta                                                           2432
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4259:72:

       tlam=bta*(2.0*al-al0)                                                2433
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4260:72:

 16730 do 16731 k=1,ni                                                      2433
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4261:72:

       if(ixx(k).eq.1)goto 16731                                            2433
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4262:72:

       if(ju(k).eq.0)goto 16731                                             2434
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4263:72:

       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     2435
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4264:72:

 16731 continue                                                             2436
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4265:72:

 16732 continue                                                             2436
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4266:72:

 10680 continue                                                             2437
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4267:72:

 16740 continue                                                             2437
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4268:72:

 16741 continue                                                             2437
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4269:72:

       az0=az                                                               2438
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4270:72:

       if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                                2439
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4271:72:

 16750 do 16751 j=1,ni                                                      2439
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4272:72:

       if(ixx(j).ne.0) v(j)=dot_product(w,x(:,j)**2)                        2439
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4273:72:

 16751 continue                                                             2440
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4274:72:

 16752 continue                                                             2440
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4275:72:

 16760 continue                                                             2440
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4276:72:

 16761 continue                                                             2440
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4277:72:

       nlp=nlp+1                                                            2440
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4278:72:

       dlx=0.0                                                              2441
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4279:72:

 16770 do 16771 k=1,ni                                                      2441
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4280:72:

       if(ixx(k).eq.0)goto 16771                                            2441
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4281:72:

       ak=a(k)                                                              2442
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4282:72:

       u=dot_product(wr,x(:,k))+v(k)*ak                                     2442
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4283:72:

       au=abs(u)-vp(k)*al1                                                  2443
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4284:72:

       if(au .gt. 0.0)goto 16791                                            2443
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4285:72:

       a(k)=0.0                                                             2443
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4286:72:

       goto 16801                                                           2444
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4287:72:

 16791 continue                                                             2444
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4288:72:

       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2444
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4289:72:

 16801 continue                                                             2445
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4290:72:

 16781 continue                                                             2445
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4291:72:

       if(a(k).eq.ak)goto 16771                                             2445
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4292:72:

       d=a(k)-ak                                                            2445
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4293:72:

       dlx=max(dlx,v(k)*d**2)                                               2446
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4294:72:

       wr=wr-d*w*x(:,k)                                                     2446
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4295:72:

       f=f+d*x(:,k)                                                         2447
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4296:72:

       if(mm(k) .ne. 0)goto 16821                                           2447
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4297:72:

       nin=nin+1                                                            2447
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4298:72:

       if(nin.gt.nx)goto 16772                                              2448
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4299:72:

       mm(k)=nin                                                            2448
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4300:72:

       m(nin)=k                                                             2449
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4301:72:

 16821 continue                                                             2450
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4302:72:

 16771 continue                                                             2451
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4303:72:

 16772 continue                                                             2451
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4304:72:

       if(nin.gt.nx)goto 16762                                              2451
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4305:72:

       d=sum(wr)/v0                                                         2452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4306:72:

       az=az+d                                                              2452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4307:72:

       dlx=max(dlx,v0*d**2)                                                 2452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4308:72:

       wr=wr-d*w                                                            2452
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4309:72:

       f=f+d                                                                2453
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4310:72:

       if(dlx.lt.shr)goto 16762                                             2453
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4311:72:

       if(nlp .le. maxit)goto 16841                                         2453
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4312:72:

       jerr=-ilm                                                            2453
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4313:72:

       return                                                               2453
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4314:72:

 16841 continue                                                             2454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4315:72:

 16850 continue                                                             2454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4316:72:

 16851 continue                                                             2454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4317:72:

       nlp=nlp+1                                                            2454
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4318:72:

       dlx=0.0                                                              2455
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4319:72:

 16860 do 16861 l=1,nin                                                     2455
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4320:72:

       k=m(l)                                                               2455
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4321:72:

       ak=a(k)                                                              2456
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4322:72:

       u=dot_product(wr,x(:,k))+v(k)*ak                                     2456
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4323:72:

       au=abs(u)-vp(k)*al1                                                  2457
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4324:72:

       if(au .gt. 0.0)goto 16881                                            2457
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4325:72:

       a(k)=0.0                                                             2457
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4326:72:

       goto 16891                                                           2458
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4327:72:

 16881 continue                                                             2458
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4328:72:

       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2458
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4329:72:

 16891 continue                                                             2459
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4330:72:

 16871 continue                                                             2459
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4331:72:

       if(a(k).eq.ak)goto 16861                                             2459
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4332:72:

       d=a(k)-ak                                                            2459
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4333:72:

       dlx=max(dlx,v(k)*d**2)                                               2460
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4334:72:

       wr=wr-d*w*x(:,k)                                                     2460
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4335:72:

       f=f+d*x(:,k)                                                         2462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4336:72:

 16861 continue                                                             2462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4337:72:

 16862 continue                                                             2462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4338:72:

       d=sum(wr)/v0                                                         2462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4339:72:

       az=az+d                                                              2462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4340:72:

       dlx=max(dlx,v0*d**2)                                                 2462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4341:72:

       wr=wr-d*w                                                            2462
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4342:72:

       f=f+d                                                                2463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4343:72:

       if(dlx.lt.shr)goto 16852                                             2463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4344:72:

       if(nlp .le. maxit)goto 16911                                         2463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4345:72:

       jerr=-ilm                                                            2463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4346:72:

       return                                                               2463
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4347:72:

 16911 continue                                                             2464
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4348:72:

       goto 16851                                                           2465
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4349:72:

 16852 continue                                                             2465
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4350:72:

       goto 16761                                                           2466
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4351:72:

 16762 continue                                                             2466
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4352:72:

       if(nin.gt.nx)goto 16742                                              2467
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4353:72:

       w=q*exp(sign(min(abs(f),fmax),f))                                    2467
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4354:72:

       v0=sum(w)                                                            2467
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4355:72:

       wr=t-w                                                               2468
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4356:72:

       if(v0*(az-az0)**2 .ge. shr)goto 16931                                2468
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4357:72:

       ix=0                                                                 2469
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4358:72:

 16940 do 16941 j=1,nin                                                     2469
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4359:72:

       k=m(j)                                                               2470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4360:72:

       if(v(k)*(a(k)-as(k))**2.lt.shr)goto 16941                            2470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4361:72:

       ix=1                                                                 2470
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4362:72:

       goto 16942                                                           2471
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4363:72:

 16941 continue                                                             2472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4364:72:

 16942 continue                                                             2472
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4365:72:

       if(ix .ne. 0)goto 16961                                              2473
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4366:72:

 16970 do 16971 k=1,ni                                                      2473
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4367:72:

       if(ixx(k).eq.1)goto 16971                                            2473
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4368:72:

       if(ju(k).eq.0)goto 16971                                             2474
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4369:72:

       ga(k)=abs(dot_product(wr,x(:,k)))                                    2475
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4370:72:

       if(ga(k) .le. al1*vp(k))goto 16991                                   2475
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4371:72:

       ixx(k)=1                                                             2475
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4372:72:

       ix=1                                                                 2475
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4373:72:

 16991 continue                                                             2476
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4374:72:

 16971 continue                                                             2477
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4375:72:

 16972 continue                                                             2477
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4376:72:

       if(ix.eq.1) go to 10680                                              2478
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4377:72:

       goto 16742                                                           2479
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4378:72:

 16961 continue                                                             2480
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4379:72:

 16931 continue                                                             2481
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4380:72:

       goto 16741                                                           2482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4381:72:

 16742 continue                                                             2482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4382:72:

       if(nin .le. nx)goto 17011                                            2482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4383:72:

       jerr=-10000-ilm                                                      2482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4384:72:

       goto 16662                                                           2482
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4385:72:

 17011 continue                                                             2483
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4386:72:

       if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))                               2483
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4387:72:

       kin(ilm)=nin                                                         2484
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4388:72:

       a0(ilm)=az                                                           2484
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4389:72:

       alm(ilm)=al                                                          2484
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4390:72:

       lmu=ilm                                                              2485
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4391:72:

       dev(ilm)=(dot_product(t,f)-v0-dv0)/dvr                               2486
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4392:72:

       if(ilm.lt.mnl)goto 16661                                             2486
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4393:72:

       if(flmin.ge.1.0)goto 16661                                           2487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4394:72:

       me=0                                                                 2487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4395:72:

 17020 do 17021 j=1,nin                                                     2487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4396:72:

       if(ca(j,ilm).ne.0.0) me=me+1                                         2487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4397:72:

 17021 continue                                                             2487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4398:72:

 17022 continue                                                             2487
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4399:72:

       if(me.gt.ne)goto 16662                                               2488
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4400:72:

       if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 16662              2489
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4401:72:

       if(dev(ilm).gt.devmax)goto 16662                                     2490
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4402:72:

 16661 continue                                                             2491
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4403:72:

 16662 continue                                                             2491
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4404:72:

       g=f                                                                  2492
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4405:72:

 11790 continue                                                             2492
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4406:72:

       deallocate(t,w,wr,v,a,f,as,mm,ga,ixx)                                2493
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4407:72:

       return                                                               2494
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4408:72:

       end                                                                  2495
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4409:72:

       function nonzero(n,v)                                                2496
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4410:72:

       real v(n)                                                            2497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4411:72:

       nonzero=0                                                            2497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4412:72:

 17030 do 17031 i=1,n                                                       2497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4413:72:

       if(v(i) .eq. 0.0)goto 17051                                          2497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4414:72:

       nonzero=1                                                            2497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4415:72:

       return                                                               2497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4416:72:

 17051 continue                                                             2497
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4417:72:

 17031 continue                                                             2498
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4418:72:

 17032 continue                                                             2498
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4419:72:

       return                                                               2499
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4420:72:

       end                                                                  2500
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4421:72:

       subroutine solns(ni,nx,lmu,a,ia,nin,b)                               2501
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4422:72:

       real a(nx,lmu),b(ni,lmu)                                             2501
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4423:72:

       integer ia(nx),nin(lmu)                                              2502
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4424:72:

 17060 do 17061 lam=1,lmu                                                   2502
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4425:72:

       call uncomp(ni,a(:,lam),ia,nin(lam),b(:,lam))                        2502
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4426:72:

 17061 continue                                                             2503
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4427:72:

 17062 continue                                                             2503
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4428:72:

       return                                                               2504
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4429:72:

       end                                                                  2505
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4430:72:

       subroutine lsolns(ni,nx,nc,lmu,a,ia,nin,b)                           2506
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4431:72:

       real a(nx,nc,lmu),b(ni,nc,lmu)                                       2506
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4432:72:

       integer ia(nx),nin(lmu)                                              2507
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4433:72:

 17070 do 17071 lam=1,lmu                                                   2507
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4434:72:

       call luncomp(ni,nx,nc,a(1,1,lam),ia,nin(lam),b(1,1,lam))             2507
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4435:72:

 17071 continue                                                             2508
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4436:72:

 17072 continue                                                             2508
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4437:72:

       return                                                               2509
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4438:72:

       end                                                                  2510
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4439:72:

       subroutine deviance(no,ni,x,y,g,q,nlam,a0,a,flog,jerr)               2511
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4440:72:

       real x(no,ni),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)       2512
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4442:72:

       if(minval(y) .ge. 0.0)goto 17091                                     2515
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4443:72:

       jerr=8888                                                            2515
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4444:72:

       return                                                               2515
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4445:72:

 17091 continue                                                             2516
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4446:72:

       allocate(w(1:no),stat=jerr)                                          2516
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4447:72:

       if(jerr.ne.0) return                                                 2517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4448:72:

       w=max(0.0,q)                                                         2517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4449:72:

       sw=sum(w)                                                            2517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4450:72:

       if(sw .gt. 0.0)goto 17111                                            2517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4451:72:

       jerr=9999                                                            2517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4452:72:

       go to 11790                                                          2517
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4453:72:

 17111 continue                                                             2518
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4454:72:

       yb=dot_product(w,y)/sw                                               2518
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4455:72:

       fmax=log(huge(y(1))*0.1)                                             2519
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4456:72:

 17120 do 17121 lam=1,nlam                                                  2519
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4457:72:

       s=0.0                                                                2520
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4458:72:

 17130 do 17131 i=1,no                                                      2520
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4459:72:

       if(w(i).le.0.0)goto 17131                                            2521
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4460:72:

       f=g(i)+a0(lam)+dot_product(a(:,lam),x(i,:))                          2522
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4461:72:

       s=s+w(i)*(y(i)*f-exp(sign(min(abs(f),fmax),f)))                      2523
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4462:72:

 17131 continue                                                             2524
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4463:72:

 17132 continue                                                             2524
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4464:72:

       flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                                2525
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4465:72:

 17121 continue                                                             2526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4466:72:

 17122 continue                                                             2526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4467:72:

 11790 continue                                                             2526
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4468:72:

       deallocate(w)                                                        2527
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4469:72:

       return                                                               2528
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4470:72:

       end                                                                  2529
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4471:72:

       subroutine spfishnet (parm,no,ni,x,ix,jx,y,g,w,jd,vp,ne,nx,nlam,fl   2531
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4473:72:

       real x(*),y(no),g(no),w(no),vp(ni),ulam(nlam)                        2532
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4474:72:

       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2533
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4475:72:

       integer ix(*),jx(*),jd(*),ia(nx),nin(nlam)                           2534
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4478:72:

       if(maxval(vp) .gt. 0.0)goto 17151                                    2538
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4479:72:

       jerr=10000                                                           2538
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4480:72:

       return                                                               2538
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4481:72:

 17151 continue                                                             2539
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4482:72:

       if(minval(y) .ge. 0.0)goto 17171                                     2539
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4483:72:

       jerr=8888                                                            2539
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4484:72:

       return                                                               2539
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4485:72:

 17171 continue                                                             2540
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4486:72:

       allocate(ww(1:no),stat=jerr)                                         2541
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4487:72:

       allocate(ju(1:ni),stat=ierr)                                         2541
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4488:72:

       jerr=jerr+ierr                                                       2542
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4489:72:

       allocate(vq(1:ni),stat=ierr)                                         2542
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4490:72:

       jerr=jerr+ierr                                                       2543
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4491:72:

       allocate(xm(1:ni),stat=ierr)                                         2543
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4492:72:

       jerr=jerr+ierr                                                       2544
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4493:72:

       allocate(xs(1:ni),stat=ierr)                                         2544
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4494:72:

       jerr=jerr+ierr                                                       2545
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4495:72:

       if(jerr.ne.0) return                                                 2546
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4496:72:

       call spchkvars(no,ni,x,ix,ju)                                        2547
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4497:72:

       if(jd(1).gt.0) ju(jd(2:(jd(1)+1)))=0                                 2548
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4498:72:

       if(maxval(ju) .gt. 0)goto 17191                                      2548
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4499:72:

       jerr=7777                                                            2548
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4500:72:

       go to 11790                                                          2548
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4501:72:

 17191 continue                                                             2549
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4502:72:

       vq=max(0.0,vp)                                                       2549
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4503:72:

       vq=vq*ni/sum(vq)                                                     2550
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4504:72:

       ww=max(0.0,w)                                                        2550
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4505:72:

       sw=sum(ww)                                                           2550
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4506:72:

       if(sw .gt. 0.0)goto 17211                                            2550
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4507:72:

       jerr=9999                                                            2550
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4508:72:

       go to 11790                                                          2550
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4509:72:

 17211 continue                                                             2551
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4510:72:

       ww=ww/sw                                                             2552
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4511:72:

       call splstandard2(no,ni,x,ix,jx,ww,ju,isd,xm,xs)                     2553
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4512:72:

       call spfishnet1(parm,no,ni,x,ix,jx,y,g,ww,ju,vq,ne,nx,nlam,flmin,u   2555
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4514:72:

       if(jerr.gt.0) go to 11790                                            2555
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4515:72:

       dev0=2.0*sw*dev0                                                     2556
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4516:72:

 17220 do 17221 k=1,lmu                                                     2556
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4517:72:

       nk=nin(k)                                                            2557
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4518:72:

       if(isd.gt.0) ca(1:nk,k)=ca(1:nk,k)/xs(ia(1:nk))                      2558
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4519:72:

       a0(k)=a0(k)-dot_product(ca(1:nk,k),xm(ia(1:nk)))                     2559
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4520:72:

 17221 continue                                                             2560
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4521:72:

 17222 continue                                                             2560
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4522:72:

 11790 continue                                                             2560
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4523:72:

       deallocate(ww,ju,vq,xm,xs)                                           2561
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4524:72:

       return                                                               2562
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4525:72:

       end                                                                  2563
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4526:72:

       subroutine spfishnet1(parm,no,ni,x,ix,jx,y,g,q,ju,vp,ne,nx,nlam,fl   2565
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4529:72:

       parameter(sml=1.0e-4, eps=1.0e-6, big=9.9e35, mnlam=5, devmax=0.99   2566
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4531:72:

       real x(*),y(no),g(no),q(no),vp(ni),ulam(nlam),xb(ni),xs(ni)          2567
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4532:72:

       real ca(nx,nlam),a0(nlam),dev(nlam),alm(nlam)                        2568
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4533:72:

       integer ix(*),jx(*),ju(ni),m(nx),kin(nlam)                           2569
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4536:72:

       allocate(a(1:ni),stat=jerr)                                          2574
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4537:72:

       allocate(as(1:ni),stat=ierr)                                         2574
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4538:72:

       jerr=jerr+ierr                                                       2575
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4539:72:

       allocate(t(1:no),stat=ierr)                                          2575
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4540:72:

       jerr=jerr+ierr                                                       2576
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4541:72:

       allocate(mm(1:ni),stat=ierr)                                         2576
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4542:72:

       jerr=jerr+ierr                                                       2577
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4543:72:

       allocate(ga(1:ni),stat=ierr)                                         2577
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4544:72:

       jerr=jerr+ierr                                                       2578
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4545:72:

       allocate(ixx(1:ni),stat=ierr)                                        2578
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4546:72:

       jerr=jerr+ierr                                                       2579
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4547:72:

       allocate(wr(1:no),stat=ierr)                                         2579
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4548:72:

       jerr=jerr+ierr                                                       2580
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4549:72:

       allocate(v(1:ni),stat=ierr)                                          2580
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4550:72:

       jerr=jerr+ierr                                                       2581
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4551:72:

       allocate(xm(1:ni),stat=ierr)                                         2581
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4552:72:

       jerr=jerr+ierr                                                       2582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4553:72:

       allocate(w(1:no),stat=ierr)                                          2582
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4554:72:

       jerr=jerr+ierr                                                       2583
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4555:72:

       allocate(qy(1:no),stat=ierr)                                         2583
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4556:72:

       jerr=jerr+ierr                                                       2584
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4557:72:

       if(jerr.ne.0) return                                                 2585
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4558:72:

       bta=parm                                                             2585
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4559:72:

       omb=1.0-bta                                                          2585
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4560:72:

       fmax=log(huge(bta)*0.1)                                              2586
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4561:72:

       qy=q*y                                                               2586
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4562:72:

       yb=sum(qy)                                                           2587
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4563:72:

       if(nonzero(no,g) .ne. 0)goto 17241                                   2587
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4564:72:

       w=q*yb                                                               2587
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4565:72:

       az=log(yb)                                                           2587
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4566:72:

       uu=az                                                                2588
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4567:72:

       xm=yb*xb                                                             2588
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4568:72:

       t=0.0                                                                2588
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4569:72:

       dv0=yb*(log(yb)-1.0)                                                 2589
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4570:72:

       goto 17251                                                           2590
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4571:72:

 17241 continue                                                             2590
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4572:72:

       w=q*exp(sign(min(abs(g),fmax),g))                                    2590
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4573:72:

       ww=sum(w)                                                            2590
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4574:72:

       eaz=yb/ww                                                            2591
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4575:72:

       w=eaz*w                                                              2591
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4576:72:

       az=log(eaz)                                                          2591
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4577:72:

       uu=az                                                                2591
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4578:72:

       t=g                                                                  2591
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4579:72:

       dv0=dot_product(qy,g)-yb*(1.0-az)                                    2592
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4580:72:

 17260 do 17261 j=1,ni                                                      2592
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4581:72:

       if(ju(j).eq.0)goto 17261                                             2592
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4582:72:

       jb=ix(j)                                                             2592
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4583:72:

       je=ix(j+1)-1                                                         2593
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4584:72:

       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             2594
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4585:72:

 17261 continue                                                             2595
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4586:72:

 17262 continue                                                             2595
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4587:72:

 17251 continue                                                             2596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4588:72:

 17231 continue                                                             2596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4589:72:

       tt=yb*uu                                                             2596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4590:72:

       ww=yb                                                                2596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4591:72:

       wr=qy-q*(yb*(1.0-uu))                                                2596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4592:72:

       a=0.0                                                                2596
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4593:72:

       as=0.0                                                               2597
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4594:72:

       dvr=-yb                                                              2598
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4595:72:

 17270 do 17271 i=1,no                                                      2598
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4596:72:

       if(qy(i).gt.0.0) dvr=dvr+qy(i)*log(y(i))                             2598
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4597:72:

 17271 continue                                                             2598
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4598:72:

 17272 continue                                                             2598
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4599:72:

       dvr=dvr-dv0                                                          2598
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4600:72:

       dev0=dvr                                                             2599
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4601:72:

       if(flmin .ge. 1.0)goto 17291                                         2599
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4602:72:

       eqs=max(eps,flmin)                                                   2599
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4603:72:

       alf=eqs**(1.0/(nlam-1))                                              2599
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4604:72:

 17291 continue                                                             2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4605:72:

       m=0                                                                  2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4606:72:

       mm=0                                                                 2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4607:72:

       nlp=0                                                                2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4608:72:

       nin=nlp                                                              2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4609:72:

       mnl=min(mnlam,nlam)                                                  2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4610:72:

       shr=shri*dev0                                                        2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4611:72:

       al=0.0                                                               2600
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4612:72:

       ixx=0                                                                2601
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4613:72:

 17300 do 17301 j=1,ni                                                      2601
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4614:72:

       if(ju(j).eq.0)goto 17301                                             2602
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4615:72:

       jb=ix(j)                                                             2602
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4616:72:

       je=ix(j+1)-1                                                         2603
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4617:72:

       ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(j)-ww*xb(j)   2605
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4619:72:

 17301 continue                                                             2606
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4620:72:

 17302 continue                                                             2606
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4621:72:

 17310 do 17311 ilm=1,nlam                                                  2606
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4622:72:

       al0=al                                                               2607
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4623:72:

       if(flmin .lt. 1.0)goto 17331                                         2607
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4624:72:

       al=ulam(ilm)                                                         2607
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4625:72:

       goto 17321                                                           2608
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4626:72:

 17331 if(ilm .le. 2)goto 17341                                             2608
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4627:72:

       al=al*alf                                                            2608
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4628:72:

       goto 17321                                                           2609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4629:72:

 17341 if(ilm .ne. 1)goto 17351                                             2609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4630:72:

       al=big                                                               2609
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4631:72:

       goto 17361                                                           2610
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4632:72:

 17351 continue                                                             2610
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4633:72:

       al0=0.0                                                              2611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4634:72:

 17370 do 17371 j=1,ni                                                      2611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4635:72:

       if(ju(j).eq.0)goto 17371                                             2611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4636:72:

       if(vp(j).gt.0.0) al0=max(al0,ga(j)/vp(j))                            2611
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4637:72:

 17371 continue                                                             2612
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4638:72:

 17372 continue                                                             2612
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4639:72:

       al0=al0/max(bta,1.0e-3)                                              2612
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4640:72:

       al=alf*al0                                                           2613
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4641:72:

 17361 continue                                                             2614
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4642:72:

 17321 continue                                                             2614
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4643:72:

       al2=al*omb                                                           2614
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4644:72:

       al1=al*bta                                                           2614
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4645:72:

       tlam=bta*(2.0*al-al0)                                                2615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4646:72:

 17380 do 17381 k=1,ni                                                      2615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4647:72:

       if(ixx(k).eq.1)goto 17381                                            2615
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4648:72:

       if(ju(k).eq.0)goto 17381                                             2616
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4649:72:

       if(ga(k).gt.tlam*vp(k)) ixx(k)=1                                     2617
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4650:72:

 17381 continue                                                             2618
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4651:72:

 17382 continue                                                             2618
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4652:72:

 10680 continue                                                             2619
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4653:72:

 17390 continue                                                             2619
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4654:72:

 17391 continue                                                             2619
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4655:72:

       az0=az                                                               2620
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4656:72:

       if(nin.gt.0) as(m(1:nin))=a(m(1:nin))                                2621
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4657:72:

 17400 do 17401 j=1,ni                                                      2621
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4658:72:

       if(ixx(j).eq.0)goto 17401                                            2621
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4659:72:

       jb=ix(j)                                                             2621
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4660:72:

       je=ix(j+1)-1                                                         2622
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4661:72:

       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             2623
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4662:72:

       v(j)=(dot_product(w(jx(jb:je)),x(jb:je)**2)  -2.0*xb(j)*xm(j)+ww*x   2625
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4664:72:

 17401 continue                                                             2626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4665:72:

 17402 continue                                                             2626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4666:72:

 17410 continue                                                             2626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4667:72:

 17411 continue                                                             2626
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4668:72:

       nlp=nlp+1                                                            2627
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4669:72:

       dlx=0.0                                                              2628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4670:72:

 17420 do 17421 k=1,ni                                                      2628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4671:72:

       if(ixx(k).eq.0)goto 17421                                            2628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4672:72:

       jb=ix(k)                                                             2628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4673:72:

       je=ix(k+1)-1                                                         2628
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4674:72:

       ak=a(k)                                                              2629
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4675:72:

       u=(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(k)-ww*xb(k))-xb(k)   2631
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4677:72:

       au=abs(u)-vp(k)*al1                                                  2632
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4678:72:

       if(au .gt. 0.0)goto 17441                                            2632
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4679:72:

       a(k)=0.0                                                             2632
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4680:72:

       goto 17451                                                           2633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4681:72:

 17441 continue                                                             2633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4682:72:

       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2633
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4683:72:

 17451 continue                                                             2634
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4684:72:

 17431 continue                                                             2634
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4685:72:

       if(a(k).eq.ak)goto 17421                                             2635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4686:72:

       if(mm(k) .ne. 0)goto 17471                                           2635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4687:72:

       nin=nin+1                                                            2635
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4688:72:

       if(nin.gt.nx)goto 17422                                              2636
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4689:72:

       mm(k)=nin                                                            2636
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4690:72:

       m(nin)=k                                                             2637
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4691:72:

 17471 continue                                                             2638
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4692:72:

       d=a(k)-ak                                                            2638
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4693:72:

       dlx=max(dlx,v(k)*d**2)                                               2638
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4694:72:

       dv=d/xs(k)                                                           2639
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4695:72:

       wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)                 2640
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4696:72:

       t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)                                2641
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4697:72:

       uu=uu-dv*xb(k)                                                       2641
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4698:72:

       tt=tt-dv*xm(k)                                                       2642
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4699:72:

 17421 continue                                                             2643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4700:72:

 17422 continue                                                             2643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4701:72:

       if(nin.gt.nx)goto 17412                                              2643
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4702:72:

       d=tt/ww-uu                                                           2644
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4703:72:

       az=az+d                                                              2644
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4704:72:

       dlx=max(dlx,ww*d**2)                                                 2644
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4705:72:

       uu=uu+d                                                              2645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4706:72:

       if(dlx.lt.shr)goto 17412                                             2645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4707:72:

       if(nlp .le. maxit)goto 17491                                         2645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4708:72:

       jerr=-ilm                                                            2645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4709:72:

       return                                                               2645
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4710:72:

 17491 continue                                                             2646
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4711:72:

 17500 continue                                                             2646
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4712:72:

 17501 continue                                                             2646
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4713:72:

       nlp=nlp+1                                                            2646
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4714:72:

       dlx=0.0                                                              2647
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4715:72:

 17510 do 17511 l=1,nin                                                     2647
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4716:72:

       k=m(l)                                                               2648
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4717:72:

       jb=ix(k)                                                             2648
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4718:72:

       je=ix(k+1)-1                                                         2648
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4719:72:

       ak=a(k)                                                              2649
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4720:72:

       u=(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(k)-ww*xb(k))-xb(k)   2651
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4722:72:

       au=abs(u)-vp(k)*al1                                                  2652
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4723:72:

       if(au .gt. 0.0)goto 17531                                            2652
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4724:72:

       a(k)=0.0                                                             2652
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4725:72:

       goto 17541                                                           2653
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4726:72:

 17531 continue                                                             2653
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4727:72:

       a(k)=sign(au,u)/(v(k)+vp(k)*al2)                                     2653
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4728:72:

 17541 continue                                                             2654
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4729:72:

 17521 continue                                                             2654
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4730:72:

       if(a(k).eq.ak)goto 17511                                             2654
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4731:72:

       d=a(k)-ak                                                            2654
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4732:72:

       dlx=max(dlx,v(k)*d**2)                                               2655
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4733:72:

       dv=d/xs(k)                                                           2655
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4734:72:

       wr(jx(jb:je))=wr(jx(jb:je))-dv*w(jx(jb:je))*x(jb:je)                 2656
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4735:72:

       t(jx(jb:je))=t(jx(jb:je))+dv*x(jb:je)                                2657
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4736:72:

       uu=uu-dv*xb(k)                                                       2657
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4737:72:

       tt=tt-dv*xm(k)                                                       2658
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4738:72:

 17511 continue                                                             2659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4739:72:

 17512 continue                                                             2659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4740:72:

       d=tt/ww-uu                                                           2659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4741:72:

       az=az+d                                                              2659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4742:72:

       dlx=max(dlx,ww*d**2)                                                 2659
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4743:72:

       uu=uu+d                                                              2660
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4744:72:

       if(dlx.lt.shr)goto 17502                                             2660
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4745:72:

       if(nlp .le. maxit)goto 17561                                         2660
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4746:72:

       jerr=-ilm                                                            2660
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4747:72:

       return                                                               2660
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4748:72:

 17561 continue                                                             2661
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4749:72:

       goto 17501                                                           2662
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4750:72:

 17502 continue                                                             2662
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4751:72:

       goto 17411                                                           2663
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4752:72:

 17412 continue                                                             2663
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4753:72:

       if(nin.gt.nx)goto 17392                                              2664
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4754:72:

       euu=exp(sign(min(abs(uu),fmax),uu))                                  2665
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4755:72:

       w=euu*q*exp(sign(min(abs(t),fmax),t))                                2665
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4756:72:

       ww=sum(w)                                                            2666
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4757:72:

       wr=qy-w*(1.0-uu)                                                     2666
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4758:72:

       tt=sum(wr)                                                           2667
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4759:72:

       if(ww*(az-az0)**2 .ge. shr)goto 17581                                2667
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4760:72:

       kx=0                                                                 2668
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4761:72:

 17590 do 17591 j=1,nin                                                     2668
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4762:72:

       k=m(j)                                                               2669
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4763:72:

       if(v(k)*(a(k)-as(k))**2.lt.shr)goto 17591                            2669
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4764:72:

       kx=1                                                                 2669
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4765:72:

       goto 17592                                                           2670
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4766:72:

 17591 continue                                                             2671
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4767:72:

 17592 continue                                                             2671
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4768:72:

       if(kx .ne. 0)goto 17611                                              2672
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4769:72:

 17620 do 17621 j=1,ni                                                      2672
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4770:72:

       if(ixx(j).eq.1)goto 17621                                            2672
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4771:72:

       if(ju(j).eq.0)goto 17621                                             2673
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4772:72:

       jb=ix(j)                                                             2673
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4773:72:

       je=ix(j+1)-1                                                         2674
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4774:72:

       xm(j)=dot_product(w(jx(jb:je)),x(jb:je))                             2675
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4775:72:

       ga(j)=abs(dot_product(wr(jx(jb:je)),x(jb:je))  -uu*(xm(j)-ww*xb(j)   2677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4777:72:

       if(ga(j) .le. al1*vp(j))goto 17641                                   2677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4778:72:

       ixx(j)=1                                                             2677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4779:72:

       kx=1                                                                 2677
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4780:72:

 17641 continue                                                             2678
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4781:72:

 17621 continue                                                             2679
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4782:72:

 17622 continue                                                             2679
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4783:72:

       if(kx.eq.1) go to 10680                                              2680
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4784:72:

       goto 17392                                                           2681
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4785:72:

 17611 continue                                                             2682
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4786:72:

 17581 continue                                                             2683
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4787:72:

       goto 17391                                                           2684
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4788:72:

 17392 continue                                                             2684
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4789:72:

       if(nin .le. nx)goto 17661                                            2684
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4790:72:

       jerr=-10000-ilm                                                      2684
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4791:72:

       goto 17312                                                           2684
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4792:72:

 17661 continue                                                             2685
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4793:72:

       if(nin.gt.0) ca(1:nin,ilm)=a(m(1:nin))                               2685
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4794:72:

       kin(ilm)=nin                                                         2686
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4795:72:

       a0(ilm)=az                                                           2686
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4796:72:

       alm(ilm)=al                                                          2686
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4797:72:

       lmu=ilm                                                              2687
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4798:72:

       dev(ilm)=(dot_product(qy,t)+yb*uu-ww-dv0)/dvr                        2688
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4799:72:

       if(ilm.lt.mnl)goto 17311                                             2688
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4800:72:

       if(flmin.ge.1.0)goto 17311                                           2689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4801:72:

       me=0                                                                 2689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4802:72:

 17670 do 17671 j=1,nin                                                     2689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4803:72:

       if(ca(j,ilm).ne.0.0) me=me+1                                         2689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4804:72:

 17671 continue                                                             2689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4805:72:

 17672 continue                                                             2689
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4806:72:

       if(me.gt.ne)goto 17312                                               2690
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4807:72:

       if((dev(ilm)-dev(ilm-mnl+1))/dev(ilm).lt.sml)goto 17312              2691
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4808:72:

       if(dev(ilm).gt.devmax)goto 17312                                     2692
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4809:72:

 17311 continue                                                             2693
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4810:72:

 17312 continue                                                             2693
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4811:72:

       g=t+uu                                                               2694
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4812:72:

 11790 continue                                                             2694
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4813:72:

       deallocate(t,w,wr,v,a,qy,xm,as,mm,ga,ixx)                            2695
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4814:72:

       return                                                               2696
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4815:72:

       end                                                                  2697
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4816:72:

       subroutine spdeviance(no,ni,x,ix,jx,y,g,q,nlam,a0,a,flog,jerr)       2698
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4817:72:

       real x(*),y(no),g(no),q(no),a(ni,nlam),a0(nlam),flog(nlam)           2699
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4818:72:

       integer ix(*),jx(*)                                                  2700
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4820:72:

       if(minval(y) .ge. 0.0)goto 17691                                     2703
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4821:72:

       jerr=8888                                                            2703
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4822:72:

       return                                                               2703
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4823:72:

 17691 continue                                                             2704
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4824:72:

       allocate(w(1:no),stat=jerr)                                          2705
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4825:72:

       allocate(f(1:no),stat=ierr)                                          2705
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4826:72:

       jerr=jerr+ierr                                                       2706
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4827:72:

       if(jerr.ne.0) return                                                 2707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4828:72:

       w=max(0.0,q)                                                         2707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4829:72:

       sw=sum(w)                                                            2707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4830:72:

       if(sw .gt. 0.0)goto 17711                                            2707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4831:72:

       jerr=9999                                                            2707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4832:72:

       go to 11790                                                          2707
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4833:72:

 17711 continue                                                             2708
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4834:72:

       yb=dot_product(w,y)/sw                                               2708
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4835:72:

       fmax=log(huge(y(1))*0.1)                                             2709
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4836:72:

 17720 do 17721 lam=1,nlam                                                  2709
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4837:72:

       f=a0(lam)                                                            2710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4838:72:

 17730 do 17731 j=1,ni                                                      2710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4839:72:

       if(a(j,lam).eq.0.0)goto 17731                                        2710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4840:72:

       jb=ix(j)                                                             2710
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4841:72:

       je=ix(j+1)-1                                                         2711
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4842:72:

       f(jx(jb:je))=f(jx(jb:je))+a(j,lam)*x(jb:je)                          2712
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4843:72:

 17731 continue                                                             2713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4844:72:

 17732 continue                                                             2713
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4845:72:

       f=f+g                                                                2714
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4846:72:

       s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))                   2715
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4847:72:

       flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                                2716
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4848:72:

 17721 continue                                                             2717
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4849:72:

 17722 continue                                                             2717
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4850:72:

 11790 continue                                                             2717
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4851:72:

       deallocate(w,f)                                                      2718
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4852:72:

       return                                                               2719
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4853:72:

       end                                                                  2720
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4854:72:

       subroutine cspdeviance(no,x,ix,jx,y,g,q,nx,nlam,a0,ca,ia,nin,flog,   2721
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4856:72:

       real x(*),y(no),g(no),q(no),ca(nx,nlam),a0(nlam),flog(nlam)          2722
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4857:72:

       integer ix(*),jx(*),nin(nlam),ia(nx)                                 2723
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4859:72:

       if(minval(y) .ge. 0.0)goto 17751                                     2726
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4860:72:

       jerr=8888                                                            2726
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4861:72:

       return                                                               2726
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4862:72:

 17751 continue                                                             2727
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4863:72:

       allocate(w(1:no),stat=jerr)                                          2728
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4864:72:

       allocate(f(1:no),stat=ierr)                                          2728
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4865:72:

       jerr=jerr+ierr                                                       2729
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4866:72:

       if(jerr.ne.0) return                                                 2730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4867:72:

       w=max(0.0,q)                                                         2730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4868:72:

       sw=sum(w)                                                            2730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4869:72:

       if(sw .gt. 0.0)goto 17771                                            2730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4870:72:

       jerr=9999                                                            2730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4871:72:

       go to 11790                                                          2730
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4872:72:

 17771 continue                                                             2731
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4873:72:

       yb=dot_product(w,y)/sw                                               2731
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4874:72:

       fmax=log(huge(y(1))*0.1)                                             2732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4875:72:

 17780 do 17781 lam=1,nlam                                                  2732
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4876:72:

       f=a0(lam)                                                            2733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4877:72:

 17790 do 17791 k=1,nin(lam)                                                2733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4878:72:

       j=ia(k)                                                              2733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4879:72:

       jb=ix(j)                                                             2733
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4880:72:

       je=ix(j+1)-1                                                         2734
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4881:72:

       f(jx(jb:je))=f(jx(jb:je))+ca(k,lam)*x(jb:je)                         2735
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4882:72:

 17791 continue                                                             2736
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4883:72:

 17792 continue                                                             2736
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4884:72:

       f=f+g                                                                2737
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4885:72:

       s=dot_product(w,y*f-exp(sign(min(abs(f),fmax),f)))                   2738
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4886:72:

       flog(lam)=2.0*(sw*yb*(log(yb)-1.0)-s)                                2739
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4887:72:

 17781 continue                                                             2740
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4888:72:

 17782 continue                                                             2740
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4889:72:

 11790 continue                                                             2740
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4890:72:

       deallocate(w,f)                                                      2741
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4891:72:

       return                                                               2742
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:4892:72:

       end                                                                  2743
                                                                        1
Warning: Line truncated at (1) [-Wline-truncation]
newGLMnet.f90:541:5:

 10031 continue                                                              628
     1
Warning: Label 10031 at (1) defined but not used
newGLMnet.f90:582:5:

 10092 continue                                                              659
     1
Warning: Label 10092 at (1) defined but not used
newGLMnet.f90:579:5:

 10090 do 10091 l=1,nk                                                       658
     1
Warning: Label 10090 at (1) defined but not used
newGLMnet.f90:585:5:

 10082 continue                                                              661
     1
Warning: Label 10082 at (1) defined but not used
newGLMnet.f90:576:5:

 10080 do 10081 k=1,lmu                                                      657
     1
Warning: Label 10080 at (1) defined but not used
newGLMnet.f90:1051:5:

 10870 do 10871 i=2,no                                                       890
     1
Warning: Label 10870 at (1) defined but not used
newGLMnet.f90:1058:5:

 10862 continue                                                              892
     1
Warning: Label 10862 at (1) defined but not used
newGLMnet.f90:1048:5:

 10860 do 10861 j=1,ni                                                       889
     1
Warning: Label 10860 at (1) defined but not used
newGLMnet.f90:625:5:

 10152 continue                                                              682
     1
Warning: Label 10152 at (1) defined but not used
newGLMnet.f90:622:5:

 10150 do 10151 j=1,ni                                                       681
     1
Warning: Label 10150 at (1) defined but not used
newGLMnet.f90:613:5:

 10142 continue                                                              678
     1
Warning: Label 10142 at (1) defined but not used
newGLMnet.f90:609:5:

 10140 do 10141 j=1,ni                                                       677
     1
Warning: Label 10140 at (1) defined but not used
newGLMnet.f90:616:5:

 10111 continue                                                              680
     1
Warning: Label 10111 at (1) defined but not used
newGLMnet.f90:604:5:

 10102 continue                                                              675
     1
Warning: Label 10102 at (1) defined but not used
newGLMnet.f90:597:5:

 10100 do 10101 j=1,ni                                                       671
     1
Warning: Label 10100 at (1) defined but not used
newGLMnet.f90:787:5:

 10462 continue                                                              755
     1
Warning: Label 10462 at (1) defined but not used
newGLMnet.f90:784:5:

 10460 do 10461 j=1,nin                                                      755
     1
Warning: Label 10460 at (1) defined but not used
newGLMnet.f90:768:5:

 10432 continue                                                              749
     1
Warning: Label 10432 at (1) defined but not used
newGLMnet.f90:764:5:

 10430 do 10431 j=1,ni                                                       746
     1
Warning: Label 10430 at (1) defined but not used
newGLMnet.f90:753:5:

 10402 continue                                                              742
     1
Warning: Label 10402 at (1) defined but not used
newGLMnet.f90:750:5:

 10400 do 10401 j=1,nin                                                      741
     1
Warning: Label 10400 at (1) defined but not used
newGLMnet.f90:755:5:

 10392 continue                                                              743
     1
Warning: Label 10392 at (1) defined but not used
newGLMnet.f90:739:5:

 10390 do 10391 l=1,nin                                                      735
     1
Warning: Label 10390 at (1) defined but not used
newGLMnet.f90:735:5:

 10380 continue                                                              734
     1
Warning: Label 10380 at (1) defined but not used
newGLMnet.f90:723:5:

 10352 continue                                                              730
     1
Warning: Label 10352 at (1) defined but not used
newGLMnet.f90:720:5:

 10350 do 10351 j=1,ni                                                       729
     1
Warning: Label 10350 at (1) defined but not used
newGLMnet.f90:713:5:

 10302 continue                                                              725
     1
Warning: Label 10302 at (1) defined but not used
newGLMnet.f90:701:5:

 10300 do 10301 j=1,ni                                                       720
     1
Warning: Label 10300 at (1) defined but not used
newGLMnet.f90:690:5:

 10270 do 10271 k=1,ni                                                       715
     1
Warning: Label 10270 at (1) defined but not used
newGLMnet.f90:685:5:

 10250 continue                                                              714
     1
Warning: Label 10250 at (1) defined but not used
newGLMnet.f90:677:5:

 10242 continue                                                              711
     1
Warning: Label 10242 at (1) defined but not used
newGLMnet.f90:672:5:

 10240 do 10241 j=1,ni                                                       708
     1
Warning: Label 10240 at (1) defined but not used
newGLMnet.f90:660:5:

 10180 do 10181 m=1,nlam                                                     704
     1
Warning: Label 10180 at (1) defined but not used
newGLMnet.f90:831:5:

 10502 continue                                                              787
     1
Warning: Label 10502 at (1) defined but not used
newGLMnet.f90:828:5:

 10500 do 10501 l=1,nk                                                       786
     1
Warning: Label 10500 at (1) defined but not used
newGLMnet.f90:834:5:

 10492 continue                                                              789
     1
Warning: Label 10492 at (1) defined but not used
newGLMnet.f90:825:5:

 10490 do 10491 k=1,lmu                                                      785
     1
Warning: Label 10490 at (1) defined but not used
newGLMnet.f90:862:5:

 10552 continue                                                              805
     1
Warning: Label 10552 at (1) defined but not used
newGLMnet.f90:858:5:

 10550 do 10551 j=1,ni                                                       804
     1
Warning: Label 10550 at (1) defined but not used
newGLMnet.f90:865:5:

 10521 continue                                                              807
     1
Warning: Label 10521 at (1) defined but not used
newGLMnet.f90:853:5:

 10512 continue                                                              803
     1
Warning: Label 10512 at (1) defined but not used
newGLMnet.f90:846:5:

 10510 do 10511 j=1,ni                                                       799
     1
Warning: Label 10510 at (1) defined but not used
newGLMnet.f90:1036:5:

 10852 continue                                                              881
     1
Warning: Label 10852 at (1) defined but not used
newGLMnet.f90:1033:5:

 10850 do 10851 j=1,nin                                                      881
     1
Warning: Label 10850 at (1) defined but not used
newGLMnet.f90:1010:5:

 10802 continue                                                              873
     1
Warning: Label 10802 at (1) defined but not used
newGLMnet.f90:996:5:

 10800 do 10801 l=1,nin                                                      866
     1
Warning: Label 10800 at (1) defined but not used
newGLMnet.f90:992:5:

 10790 continue                                                              865
     1
Warning: Label 10790 at (1) defined but not used
newGLMnet.f90:982:5:

 10742 continue                                                              860
     1
Warning: Label 10742 at (1) defined but not used
newGLMnet.f90:973:5:

 10740 do 10741 k=1,ni                                                       856
     1
Warning: Label 10740 at (1) defined but not used
newGLMnet.f90:949:5:

 10690 do 10691 k=1,ni                                                       844
     1
Warning: Label 10690 at (1) defined but not used
newGLMnet.f90:943:5:

 10670 continue                                                              842
     1
Warning: Label 10670 at (1) defined but not used
newGLMnet.f90:942:5:

 10662 continue                                                              842
     1
Warning: Label 10662 at (1) defined but not used
newGLMnet.f90:937:5:

 10660 do 10661 k=1,ni                                                       839
     1
Warning: Label 10660 at (1) defined but not used
newGLMnet.f90:927:5:

 10652 continue                                                              835
     1
Warning: Label 10652 at (1) defined but not used
newGLMnet.f90:923:5:

 10650 do 10651 j=1,ni                                                       834
     1
Warning: Label 10650 at (1) defined but not used
newGLMnet.f90:910:5:

 10590 do 10591 m=1,nlam                                                     829
     1
Warning: Label 10590 at (1) defined but not used
newGLMnet.f90:909:5:

 10582 continue                                                              829
     1
Warning: Label 10582 at (1) defined but not used
newGLMnet.f90:905:5:

 10580 do 10581 j=1,ni                                                       828
     1
Warning: Label 10580 at (1) defined but not used
newGLMnet.f90:1076:5:

 10882 continue                                                              903
     1
Warning: Label 10882 at (1) defined but not used
newGLMnet.f90:1073:5:

 10880 do 10881 i=1,n                                                        902
     1
Warning: Label 10880 at (1) defined but not used
newGLMnet.f90:1101:5:

 10911 continue                                                              927
     1
Warning: Label 10911 at (1) defined but not used
newGLMnet.f90:1142:5:

 10972 continue                                                              958
     1
Warning: Label 10972 at (1) defined but not used
newGLMnet.f90:1139:5:

 10970 do 10971 l=1,nk                                                       957
     1
Warning: Label 10970 at (1) defined but not used
newGLMnet.f90:1145:5:

 10962 continue                                                              960
     1
Warning: Label 10962 at (1) defined but not used
newGLMnet.f90:1136:5:

 10960 do 10961 k=1,lmu                                                      956
     1
Warning: Label 10960 at (1) defined but not used
newGLMnet.f90:1622:5:

 11750 do 11751 i=jb+1,je                                                   1189
     1
Warning: Label 11750 at (1) defined but not used
newGLMnet.f90:1613:5:

 11730 do 11731 i=jb,je                                                     1188
     1
Warning: Label 11730 at (1) defined but not used
newGLMnet.f90:1629:5:

 11711 continue                                                             1190
     1
Warning: Label 11711 at (1) defined but not used
newGLMnet.f90:1631:5:

 11702 continue                                                             1191
     1
Warning: Label 11702 at (1) defined but not used
newGLMnet.f90:1606:5:

 11700 do 11701 j=1,ni                                                      1186
     1
Warning: Label 11700 at (1) defined but not used
newGLMnet.f90:1181:5:

 11022 continue                                                              976
     1
Warning: Label 11022 at (1) defined but not used
newGLMnet.f90:1175:5:

 11020 do 11021 j=1,ni                                                       973
     1
Warning: Label 11020 at (1) defined but not used
newGLMnet.f90:1169:5:

 10991 continue                                                              972
     1
Warning: Label 10991 at (1) defined but not used
newGLMnet.f90:1162:5:

 10982 continue                                                              971
     1
Warning: Label 10982 at (1) defined but not used
newGLMnet.f90:1154:5:

 10980 do 10981 j=1,ni                                                       966
     1
Warning: Label 10980 at (1) defined but not used
newGLMnet.f90:1342:5:

 11322 continue                                                             1050
     1
Warning: Label 11322 at (1) defined but not used
newGLMnet.f90:1339:5:

 11320 do 11321 j=1,nin                                                     1050
     1
Warning: Label 11320 at (1) defined but not used
newGLMnet.f90:1323:5:

 11292 continue                                                             1044
     1
Warning: Label 11292 at (1) defined but not used
newGLMnet.f90:1319:5:

 11290 do 11291 j=1,ni                                                      1041
     1
Warning: Label 11290 at (1) defined but not used
newGLMnet.f90:1308:5:

 11262 continue                                                             1037
     1
Warning: Label 11262 at (1) defined but not used
newGLMnet.f90:1305:5:

 11260 do 11261 j=1,nin                                                     1036
     1
Warning: Label 11260 at (1) defined but not used
newGLMnet.f90:1310:5:

 11252 continue                                                             1038
     1
Warning: Label 11252 at (1) defined but not used
newGLMnet.f90:1294:5:

 11250 do 11251 l=1,nin                                                     1030
     1
Warning: Label 11250 at (1) defined but not used
newGLMnet.f90:1290:5:

 11240 continue                                                             1029
     1
Warning: Label 11240 at (1) defined but not used
newGLMnet.f90:1278:5:

 11212 continue                                                             1025
     1
Warning: Label 11212 at (1) defined but not used
newGLMnet.f90:1275:5:

 11210 do 11211 j=1,ni                                                      1024
     1
Warning: Label 11210 at (1) defined but not used
newGLMnet.f90:1268:5:

 11162 continue                                                             1020
     1
Warning: Label 11162 at (1) defined but not used
newGLMnet.f90:1256:5:

 11160 do 11161 j=1,ni                                                      1014
     1
Warning: Label 11160 at (1) defined but not used
newGLMnet.f90:1245:5:

 11130 do 11131 k=1,ni                                                      1009
     1
Warning: Label 11130 at (1) defined but not used
newGLMnet.f90:1240:5:

 11120 continue                                                             1008
     1
Warning: Label 11120 at (1) defined but not used
newGLMnet.f90:1232:5:

 11112 continue                                                             1005
     1
Warning: Label 11112 at (1) defined but not used
newGLMnet.f90:1227:5:

 11110 do 11111 j=1,ni                                                      1002
     1
Warning: Label 11110 at (1) defined but not used
newGLMnet.f90:1215:5:

 11050 do 11051 m=1,nlam                                                     998
     1
Warning: Label 11050 at (1) defined but not used
newGLMnet.f90:1669:5:

 11810 continue                                                             1213
     1
Warning: Label 11810 at (1) defined but not used
newGLMnet.f90:1662:5:

 11780 continue                                                             1211
     1
Warning: Label 11780 at (1) defined but not used
newGLMnet.f90:1660:5:

 11770 continue                                                             1210
     1
Warning: Label 11770 at (1) defined but not used
newGLMnet.f90:1386:5:

 11362 continue                                                             1082
     1
Warning: Label 11362 at (1) defined but not used
newGLMnet.f90:1383:5:

 11360 do 11361 l=1,nk                                                      1081
     1
Warning: Label 11360 at (1) defined but not used
newGLMnet.f90:1389:5:

 11352 continue                                                             1084
     1
Warning: Label 11352 at (1) defined but not used
newGLMnet.f90:1380:5:

 11350 do 11351 k=1,lmu                                                     1080
     1
Warning: Label 11350 at (1) defined but not used
newGLMnet.f90:1413:5:

 11381 continue                                                             1096
     1
Warning: Label 11381 at (1) defined but not used
newGLMnet.f90:1406:5:

 11372 continue                                                             1095
     1
Warning: Label 11372 at (1) defined but not used
newGLMnet.f90:1398:5:

 11370 do 11371 j=1,ni                                                      1090
     1
Warning: Label 11370 at (1) defined but not used
newGLMnet.f90:1594:5:

 11692 continue                                                             1178
     1
Warning: Label 11692 at (1) defined but not used
newGLMnet.f90:1591:5:

 11690 do 11691 j=1,nin                                                     1178
     1
Warning: Label 11690 at (1) defined but not used
newGLMnet.f90:1568:5:

 11642 continue                                                             1170
     1
Warning: Label 11642 at (1) defined but not used
newGLMnet.f90:1551:5:

 11640 do 11641 l=1,nin                                                     1161
     1
Warning: Label 11640 at (1) defined but not used
newGLMnet.f90:1547:5:

 11630 continue                                                             1160
     1
Warning: Label 11630 at (1) defined but not used
newGLMnet.f90:1537:5:

 11582 continue                                                             1155
     1
Warning: Label 11582 at (1) defined but not used
newGLMnet.f90:1526:5:

 11580 do 11581 j=1,ni                                                      1150
     1
Warning: Label 11580 at (1) defined but not used
newGLMnet.f90:1499:5:

 11530 do 11531 k=1,ni                                                      1136
     1
Warning: Label 11530 at (1) defined but not used
newGLMnet.f90:1493:5:

 11520 continue                                                             1134
     1
Warning: Label 11520 at (1) defined but not used
newGLMnet.f90:1492:5:

 11512 continue                                                             1134
     1
Warning: Label 11512 at (1) defined but not used
newGLMnet.f90:1487:5:

 11510 do 11511 k=1,ni                                                      1131
     1
Warning: Label 11510 at (1) defined but not used
newGLMnet.f90:1477:5:

 11502 continue                                                             1127
     1
Warning: Label 11502 at (1) defined but not used
newGLMnet.f90:1473:5:

 11500 do 11501 j=1,ni                                                      1126
     1
Warning: Label 11500 at (1) defined but not used
newGLMnet.f90:1460:5:

 11440 do 11441 m=1,nlam                                                    1121
     1
Warning: Label 11440 at (1) defined but not used
newGLMnet.f90:1459:5:

 11432 continue                                                             1121
     1
Warning: Label 11432 at (1) defined but not used
newGLMnet.f90:1453:5:

 11430 do 11431 j=1,ni                                                      1117
     1
Warning: Label 11430 at (1) defined but not used
newGLMnet.f90:1644:5:

 11762 continue                                                             1199
     1
Warning: Label 11762 at (1) defined but not used
newGLMnet.f90:1638:5:

 11760 do 11761 j=1,nin                                                     1196
     1
Warning: Label 11760 at (1) defined but not used
newGLMnet.f90:1746:5:

 11962 continue                                                             1253
     1
Warning: Label 11962 at (1) defined but not used
newGLMnet.f90:1743:5:

 11960 do 11961 l=1,nk                                                      1253
     1
Warning: Label 11960 at (1) defined but not used
newGLMnet.f90:1750:5:

 11932 continue                                                             1256
     1
Warning: Label 11932 at (1) defined but not used
newGLMnet.f90:1741:5:

 11930 do 11931 ic=1,nc                                                     1253
     1
Warning: Label 11930 at (1) defined but not used
newGLMnet.f90:1752:5:

 11922 continue                                                             1257
     1
Warning: Label 11922 at (1) defined but not used
newGLMnet.f90:1739:5:

 11920 do 11921 k=1,lmu                                                     1252
     1
Warning: Label 11920 at (1) defined but not used
newGLMnet.f90:1736:5:

 11891 continue                                                             1251
     1
Warning: Label 11891 at (1) defined but not used
newGLMnet.f90:1724:5:

 11882 continue                                                             1241
     1
Warning: Label 11882 at (1) defined but not used
newGLMnet.f90:1720:5:

 11880 do 11881 i=1,no                                                      1241
     1
Warning: Label 11880 at (1) defined but not used
newGLMnet.f90:1769:5:

 11972 continue                                                             1266
     1
Warning: Label 11972 at (1) defined but not used
newGLMnet.f90:1760:5:

 11970 do 11971 j=1,ni                                                      1262
     1
Warning: Label 11970 at (1) defined but not used
newGLMnet.f90:2055:5:

 12642 continue                                                             1387
     1
Warning: Label 12642 at (1) defined but not used
newGLMnet.f90:2052:5:

 12640 do 12641 j=1,nin                                                     1387
     1
Warning: Label 12640 at (1) defined but not used
newGLMnet.f90:2030:5:

 12592 continue                                                             1376
     1
Warning: Label 12592 at (1) defined but not used
newGLMnet.f90:2021:5:

 12590 do 12591 k=1,ni                                                      1372
     1
Warning: Label 12590 at (1) defined but not used
newGLMnet.f90:2013:5:

 12560 do 12561 j=1,nin                                                     1368
     1
Warning: Label 12560 at (1) defined but not used
newGLMnet.f90:2006:5:

 12492 continue                                                             1366
     1
Warning: Label 12492 at (1) defined but not used
newGLMnet.f90:1992:5:

 12490 do 12491 i=1,no                                                      1361
     1
Warning: Label 12490 at (1) defined but not used
newGLMnet.f90:1969:5:

 12421 continue                                                             1352
     1
Warning: Label 12421 at (1) defined but not used
newGLMnet.f90:1975:5:

 12412 continue                                                             1355
     1
Warning: Label 12412 at (1) defined but not used
newGLMnet.f90:1957:5:

 12410 do 12411 l=1,nin                                                     1347
     1
Warning: Label 12410 at (1) defined but not used
newGLMnet.f90:1953:5:

 12400 continue                                                             1346
     1
Warning: Label 12400 at (1) defined but not used
newGLMnet.f90:1928:5:

 12311 continue                                                             1336
     1
Warning: Label 12311 at (1) defined but not used
newGLMnet.f90:1916:5:

 12300 do 12301 k=1,ni                                                      1331
     1
Warning: Label 12300 at (1) defined but not used
newGLMnet.f90:1912:5:

 12290 continue                                                             1330
     1
Warning: Label 12290 at (1) defined but not used
newGLMnet.f90:1910:5:

 12282 continue                                                             1329
     1
Warning: Label 12282 at (1) defined but not used
newGLMnet.f90:1907:5:

 12280 do 12281 j=1,ni                                                      1328
     1
Warning: Label 12280 at (1) defined but not used
newGLMnet.f90:1902:5:

 12250 continue                                                             1326
     1
Warning: Label 12250 at (1) defined but not used
newGLMnet.f90:1900:5:

 12242 continue                                                             1325
     1
Warning: Label 12242 at (1) defined but not used
newGLMnet.f90:1895:5:

 12240 do 12241 k=1,ni                                                      1322
     1
Warning: Label 12240 at (1) defined but not used
newGLMnet.f90:1887:5:

 12232 continue                                                             1319
     1
Warning: Label 12232 at (1) defined but not used
newGLMnet.f90:1883:5:

 12230 do 12231 j=1,ni                                                      1318
     1
Warning: Label 12230 at (1) defined but not used
newGLMnet.f90:1870:5:

 12170 do 12171 ilm=1,nlam                                                  1313
     1
Warning: Label 12170 at (1) defined but not used
newGLMnet.f90:1869:5:

 12162 continue                                                             1313
     1
Warning: Label 12162 at (1) defined but not used
newGLMnet.f90:1865:5:

 12160 do 12161 j=1,ni                                                      1312
     1
Warning: Label 12160 at (1) defined but not used
newGLMnet.f90:1852:5:

 12132 continue                                                             1309
     1
Warning: Label 12132 at (1) defined but not used
newGLMnet.f90:1848:5:

 12130 do 12131 i=1,no                                                      1306
     1
Warning: Label 12130 at (1) defined but not used
newGLMnet.f90:1843:5:

 12122 continue                                                             1303
     1
Warning: Label 12122 at (1) defined but not used
newGLMnet.f90:1840:5:

 12120 do 12121 j=1,ni                                                      1303
     1
Warning: Label 12120 at (1) defined but not used
newGLMnet.f90:1845:5:

 12091 continue                                                             1304
     1
Warning: Label 12091 at (1) defined but not used
newGLMnet.f90:1834:5:

 12041 continue                                                             1301
     1
Warning: Label 12041 at (1) defined but not used
newGLMnet.f90:4418:5:

 17032 continue                                                             2498
     1
Warning: Label 17032 at (1) defined but not used
newGLMnet.f90:4412:5:

 17030 do 17031 i=1,n                                                       2497
     1
Warning: Label 17030 at (1) defined but not used
newGLMnet.f90:2091:5:

 12660 continue                                                             1414
     1
Warning: Label 12660 at (1) defined but not used
newGLMnet.f90:2073:5:

 12652 continue                                                             1400
     1
Warning: Label 12652 at (1) defined but not used
newGLMnet.f90:2069:5:

 12650 do 12651 i=1,n                                                       1397
     1
Warning: Label 12650 at (1) defined but not used
newGLMnet.f90:2497:5:

 13542 continue                                                             1596
     1
Warning: Label 13542 at (1) defined but not used
newGLMnet.f90:2494:5:

 13540 do 13541 i=1,no                                                      1595
     1
Warning: Label 13540 at (1) defined but not used
newGLMnet.f90:2478:5:

 13532 continue                                                             1588
     1
Warning: Label 13532 at (1) defined but not used
newGLMnet.f90:2474:5:

 13530 do 13531 i=1,no                                                      1585
     1
Warning: Label 13530 at (1) defined but not used
newGLMnet.f90:2480:5:

 13522 continue                                                             1589
     1
Warning: Label 13522 at (1) defined but not used
newGLMnet.f90:2471:5:

 13520 do 13521 ic=1,nc                                                     1584
     1
Warning: Label 13520 at (1) defined but not used
newGLMnet.f90:2460:5:

 13472 continue                                                             1578
     1
Warning: Label 13472 at (1) defined but not used
newGLMnet.f90:2452:5:

 13470 do 13471 k=1,ni                                                      1575
     1
Warning: Label 13470 at (1) defined but not used
newGLMnet.f90:2449:5:

 13462 continue                                                             1574
     1
Warning: Label 13462 at (1) defined but not used
newGLMnet.f90:2444:5:

 13460 do 13461 k=1,ni                                                      1571
     1
Warning: Label 13460 at (1) defined but not used
newGLMnet.f90:2451:5:

 13452 continue                                                             1575
     1
Warning: Label 13452 at (1) defined but not used
newGLMnet.f90:2442:5:

 13450 do 13451 ic=1,nc                                                     1570
     1
Warning: Label 13450 at (1) defined but not used
newGLMnet.f90:2441:5:

 13442 continue                                                             1570
     1
Warning: Label 13442 at (1) defined but not used
newGLMnet.f90:2436:5:

 13440 do 13441 k=1,ni                                                      1569
     1
Warning: Label 13440 at (1) defined but not used
newGLMnet.f90:2432:5:

 13412 continue                                                             1567
     1
Warning: Label 13412 at (1) defined but not used
newGLMnet.f90:2429:5:

 13410 do 13411 ic=1,nc                                                     1566
     1
Warning: Label 13410 at (1) defined but not used
newGLMnet.f90:2422:5:

 13381 continue                                                             1564
     1
Warning: Label 13381 at (1) defined but not used
newGLMnet.f90:2426:5:

 13372 continue                                                             1566
     1
Warning: Label 13372 at (1) defined but not used
newGLMnet.f90:2414:5:

 13370 do 13371 j=1,nin                                                     1561
     1
Warning: Label 13370 at (1) defined but not used
newGLMnet.f90:2408:5:

 13362 continue                                                             1559
     1
Warning: Label 13362 at (1) defined but not used
newGLMnet.f90:2400:5:

 13360 do 13361 i=1,no                                                      1552
     1
Warning: Label 13360 at (1) defined but not used
newGLMnet.f90:2391:5:

 13330 do 13331 j=1,nin                                                     1548
     1
Warning: Label 13330 at (1) defined but not used
newGLMnet.f90:2366:5:

 13241 continue                                                             1535
     1
Warning: Label 13241 at (1) defined but not used
newGLMnet.f90:2372:5:

 13232 continue                                                             1538
     1
Warning: Label 13232 at (1) defined but not used
newGLMnet.f90:2354:5:

 13230 do 13231 l=1,nin                                                     1530
     1
Warning: Label 13230 at (1) defined but not used
newGLMnet.f90:2350:5:

 13220 continue                                                             1529
     1
Warning: Label 13220 at (1) defined but not used
newGLMnet.f90:2322:5:

 13111 continue                                                             1517
     1
Warning: Label 13111 at (1) defined but not used
newGLMnet.f90:2310:5:

 13100 do 13101 k=1,ni                                                      1512
     1
Warning: Label 13100 at (1) defined but not used
newGLMnet.f90:2306:5:

 13090 continue                                                             1511
     1
Warning: Label 13090 at (1) defined but not used
newGLMnet.f90:2304:5:

 13082 continue                                                             1510
     1
Warning: Label 13082 at (1) defined but not used
newGLMnet.f90:2301:5:

 13080 do 13081 j=1,ni                                                      1509
     1
Warning: Label 13080 at (1) defined but not used
newGLMnet.f90:2297:5:

 13012 continue                                                             1507
     1
Warning: Label 13012 at (1) defined but not used
newGLMnet.f90:2280:5:

 13010 do 13011 i=1,no                                                      1501
     1
Warning: Label 13010 at (1) defined but not used
newGLMnet.f90:2276:5:

 13000 do 13001 ic=1,nc                                                     1498
     1
Warning: Label 13000 at (1) defined but not used
newGLMnet.f90:2271:5:

 12990 continue                                                             1497
     1
Warning: Label 12990 at (1) defined but not used
newGLMnet.f90:2269:5:

 12982 continue                                                             1496
     1
Warning: Label 12982 at (1) defined but not used
newGLMnet.f90:2264:5:

 12980 do 12981 k=1,ni                                                      1493
     1
Warning: Label 12980 at (1) defined but not used
newGLMnet.f90:2256:5:

 12972 continue                                                             1490
     1
Warning: Label 12972 at (1) defined but not used
newGLMnet.f90:2252:5:

 12970 do 12971 j=1,ni                                                      1489
     1
Warning: Label 12970 at (1) defined but not used
newGLMnet.f90:2239:5:

 12910 do 12911 ilm=1,nlam                                                  1484
     1
Warning: Label 12910 at (1) defined but not used
newGLMnet.f90:2236:5:

 12902 continue                                                             1483
     1
Warning: Label 12902 at (1) defined but not used
newGLMnet.f90:2233:5:

 12900 do 12901 j=1,ni                                                      1482
     1
Warning: Label 12900 at (1) defined but not used
newGLMnet.f90:2238:5:

 12892 continue                                                             1484
     1
Warning: Label 12892 at (1) defined but not used
newGLMnet.f90:2231:5:

 12890 do 12891 ic=1,nc                                                     1481
     1
Warning: Label 12890 at (1) defined but not used
newGLMnet.f90:2215:5:

 12862 continue                                                             1476
     1
Warning: Label 12862 at (1) defined but not used
newGLMnet.f90:2212:5:

 12860 do 12861 j=1,ni                                                      1476
     1
Warning: Label 12860 at (1) defined but not used
newGLMnet.f90:2217:5:

 12831 continue                                                             1477
     1
Warning: Label 12831 at (1) defined but not used
newGLMnet.f90:2203:5:

 12802 continue                                                             1472
     1
Warning: Label 12802 at (1) defined but not used
newGLMnet.f90:2200:5:

 12800 do 12801 i=1,no                                                      1472
     1
Warning: Label 12800 at (1) defined but not used
newGLMnet.f90:2205:5:

 12792 continue                                                             1473
     1
Warning: Label 12792 at (1) defined but not used
newGLMnet.f90:2199:5:

 12790 do 12791 ic=1,nc                                                     1472
     1
Warning: Label 12790 at (1) defined but not used
newGLMnet.f90:2196:5:

 12782 continue                                                             1471
     1
Warning: Label 12782 at (1) defined but not used
newGLMnet.f90:2193:5:

 12780 do 12781 ic=1,nc                                                     1470
     1
Warning: Label 12780 at (1) defined but not used
newGLMnet.f90:2191:5:

 12772 continue                                                             1470
     1
Warning: Label 12772 at (1) defined but not used
newGLMnet.f90:2185:5:

 12770 do 12771 ic=1,nc                                                     1466
     1
Warning: Label 12770 at (1) defined but not used
newGLMnet.f90:2180:5:

 12762 continue                                                             1463
     1
Warning: Label 12762 at (1) defined but not used
newGLMnet.f90:2177:5:

 12760 do 12761 i=1,no                                                      1463
     1
Warning: Label 12760 at (1) defined but not used
newGLMnet.f90:2174:5:

 12742 continue                                                             1462
     1
Warning: Label 12742 at (1) defined but not used
newGLMnet.f90:2170:5:

 12740 do 12741 ic=1,nc                                                     1461
     1
Warning: Label 12740 at (1) defined but not used
newGLMnet.f90:2198:5:

 12721 continue                                                             1472
     1
Warning: Label 12721 at (1) defined but not used
newGLMnet.f90:2164:5:

 12672 continue                                                             1458
     1
Warning: Label 12672 at (1) defined but not used
newGLMnet.f90:2150:5:

 12670 do 12671 ic=1,nc                                                     1453
     1
Warning: Label 12670 at (1) defined but not used
newGLMnet.f90:2537:5:

 13592 continue                                                             1617
     1
Warning: Label 13592 at (1) defined but not used
newGLMnet.f90:2532:5:

 13590 do 13591 i=1,n                                                       1616
     1
Warning: Label 13590 at (1) defined but not used
newGLMnet.f90:2527:5:

 13582 continue                                                             1615
     1
Warning: Label 13582 at (1) defined but not used
newGLMnet.f90:2522:5:

 13580 do 13581 i=1,n                                                       1612
     1
Warning: Label 13580 at (1) defined but not used
newGLMnet.f90:2539:5:

 13572 continue                                                             1618
     1
Warning: Label 13572 at (1) defined but not used
newGLMnet.f90:2519:5:

 13570 do 13571 k=1,kk                                                      1611
     1
Warning: Label 13570 at (1) defined but not used
newGLMnet.f90:2516:5:

 13560 continue                                                             1610
     1
Warning: Label 13560 at (1) defined but not used
newGLMnet.f90:2515:5:

 13552 continue                                                             1610
     1
Warning: Label 13552 at (1) defined but not used
newGLMnet.f90:2512:5:

 13550 do 13551 i=1,n                                                       1609
     1
Warning: Label 13550 at (1) defined but not used
newGLMnet.f90:2621:5:

 13772 continue                                                             1645
     1
Warning: Label 13772 at (1) defined but not used
newGLMnet.f90:2611:5:

 13770 do 13771 k=k1+1,k2                                                   1641
     1
Warning: Label 13770 at (1) defined but not used
newGLMnet.f90:2593:5:

 13720 do 13721 k=k1,k2-1                                                   1636
     1
Warning: Label 13720 at (1) defined but not used
newGLMnet.f90:2585:5:

 13710 continue                                                             1634
     1
Warning: Label 13710 at (1) defined but not used
newGLMnet.f90:2579:5:

 13700 continue                                                             1633
     1
Warning: Label 13700 at (1) defined but not used
newGLMnet.f90:2571:5:

 13651 continue                                                             1631
     1
Warning: Label 13651 at (1) defined but not used
newGLMnet.f90:2559:5:

 13622 continue                                                             1627
     1
Warning: Label 13622 at (1) defined but not used
newGLMnet.f90:2556:5:

 13620 do 13621 i=1,n                                                       1627
     1
Warning: Label 13620 at (1) defined but not used
newGLMnet.f90:2637:5:

 13812 continue                                                             1652
     1
Warning: Label 13812 at (1) defined but not used
newGLMnet.f90:2630:5:

 13810 do 13811 j=1,nin                                                     1650
     1
Warning: Label 13810 at (1) defined but not used
newGLMnet.f90:2639:5:

 13802 continue                                                             1653
     1
Warning: Label 13802 at (1) defined but not used
newGLMnet.f90:2629:5:

 13800 do 13801 ic=1,nc                                                     1650
     1
Warning: Label 13800 at (1) defined but not used
newGLMnet.f90:2649:5:

 13822 continue                                                             1659
     1
Warning: Label 13822 at (1) defined but not used
newGLMnet.f90:2646:5:

 13820 do 13821 ic=1,nc                                                     1658
     1
Warning: Label 13820 at (1) defined but not used
newGLMnet.f90:2661:5:

 13842 continue                                                             1666
     1
Warning: Label 13842 at (1) defined but not used
newGLMnet.f90:2656:5:

 13840 do 13841 ic=1,nc                                                     1663
     1
Warning: Label 13840 at (1) defined but not used
newGLMnet.f90:2663:5:

 13832 continue                                                             1667
     1
Warning: Label 13832 at (1) defined but not used
newGLMnet.f90:2655:5:

 13830 do 13831 i=1,nt                                                      1663
     1
Warning: Label 13830 at (1) defined but not used
newGLMnet.f90:2724:5:

 13972 continue                                                             1701
     1
Warning: Label 13972 at (1) defined but not used
newGLMnet.f90:2721:5:

 13970 do 13971 l=1,nk                                                      1701
     1
Warning: Label 13970 at (1) defined but not used
newGLMnet.f90:2728:5:

 13942 continue                                                             1704
     1
Warning: Label 13942 at (1) defined but not used
newGLMnet.f90:2719:5:

 13940 do 13941 ic=1,nc                                                     1701
     1
Warning: Label 13940 at (1) defined but not used
newGLMnet.f90:2730:5:

 13932 continue                                                             1705
     1
Warning: Label 13932 at (1) defined but not used
newGLMnet.f90:2717:5:

 13930 do 13931 k=1,lmu                                                     1700
     1
Warning: Label 13930 at (1) defined but not used
newGLMnet.f90:2714:5:

 13901 continue                                                             1699
     1
Warning: Label 13901 at (1) defined but not used
newGLMnet.f90:2700:5:

 13892 continue                                                             1689
     1
Warning: Label 13892 at (1) defined but not used
newGLMnet.f90:2696:5:

 13890 do 13891 i=1,no                                                      1689
     1
Warning: Label 13890 at (1) defined but not used
newGLMnet.f90:2745:5:

 13982 continue                                                             1714
     1
Warning: Label 13982 at (1) defined but not used
newGLMnet.f90:2737:5:

 13980 do 13981 j=1,ni                                                      1710
     1
Warning: Label 13980 at (1) defined but not used
newGLMnet.f90:3090:5:

 14642 continue                                                             1874
     1
Warning: Label 14642 at (1) defined but not used
newGLMnet.f90:3087:5:

 14640 do 14641 j=1,nin                                                     1874
     1
Warning: Label 14640 at (1) defined but not used
newGLMnet.f90:3066:5:

 14592 continue                                                             1863
     1
Warning: Label 14592 at (1) defined but not used
newGLMnet.f90:3052:5:

 14590 do 14591 j=1,ni                                                      1856
     1
Warning: Label 14590 at (1) defined but not used
newGLMnet.f90:3044:5:

 14560 do 14561 j=1,nin                                                     1852
     1
Warning: Label 14560 at (1) defined but not used
newGLMnet.f90:3035:5:

 14492 continue                                                             1849
     1
Warning: Label 14492 at (1) defined but not used
newGLMnet.f90:3022:5:

 14490 do 14491 i=1,no                                                      1845
     1
Warning: Label 14490 at (1) defined but not used
newGLMnet.f90:3020:5:

 14482 continue                                                             1844
     1
Warning: Label 14482 at (1) defined but not used
newGLMnet.f90:3013:5:

 14480 do 14481 j=1,nin                                                     1840
     1
Warning: Label 14480 at (1) defined but not used
newGLMnet.f90:2985:5:

 14411 continue                                                             1827
     1
Warning: Label 14411 at (1) defined but not used
newGLMnet.f90:2993:5:

 14402 continue                                                             1832
     1
Warning: Label 14402 at (1) defined but not used
newGLMnet.f90:2968:5:

 14400 do 14401 l=1,nin                                                     1819
     1
Warning: Label 14400 at (1) defined but not used
newGLMnet.f90:2964:5:

 14390 continue                                                             1818
     1
Warning: Label 14390 at (1) defined but not used
newGLMnet.f90:2934:5:

 14301 continue                                                             1804
     1
Warning: Label 14301 at (1) defined but not used
newGLMnet.f90:2917:5:

 14290 do 14291 k=1,ni                                                      1796
     1
Warning: Label 14290 at (1) defined but not used
newGLMnet.f90:2913:5:

 14280 continue                                                             1795
     1
Warning: Label 14280 at (1) defined but not used
newGLMnet.f90:2912:5:

 14252 continue                                                             1795
     1
Warning: Label 14252 at (1) defined but not used
newGLMnet.f90:2900:5:

 14250 do 14251 j=1,ni                                                      1786
     1
Warning: Label 14250 at (1) defined but not used
newGLMnet.f90:2896:5:

 14240 continue                                                             1785
     1
Warning: Label 14240 at (1) defined but not used
newGLMnet.f90:2894:5:

 14232 continue                                                             1784
     1
Warning: Label 14232 at (1) defined but not used
newGLMnet.f90:2889:5:

 14230 do 14231 k=1,ni                                                      1781
     1
Warning: Label 14230 at (1) defined but not used
newGLMnet.f90:2881:5:

 14222 continue                                                             1778
     1
Warning: Label 14222 at (1) defined but not used
newGLMnet.f90:2877:5:

 14220 do 14221 j=1,ni                                                      1777
     1
Warning: Label 14220 at (1) defined but not used
newGLMnet.f90:2864:5:

 14160 do 14161 ilm=1,nlam                                                  1772
     1
Warning: Label 14160 at (1) defined but not used
newGLMnet.f90:2863:5:

 14152 continue                                                             1772
     1
Warning: Label 14152 at (1) defined but not used
newGLMnet.f90:2854:5:

 14150 do 14151 j=1,ni                                                      1766
     1
Warning: Label 14150 at (1) defined but not used
newGLMnet.f90:2837:5:

 14122 continue                                                             1763
     1
Warning: Label 14122 at (1) defined but not used
newGLMnet.f90:2833:5:

 14120 do 14121 i=1,no                                                      1760
     1
Warning: Label 14120 at (1) defined but not used
newGLMnet.f90:2827:5:

 14112 continue                                                             1757
     1
Warning: Label 14112 at (1) defined but not used
newGLMnet.f90:2821:5:

 14110 do 14111 j=1,ni                                                      1754
     1
Warning: Label 14110 at (1) defined but not used
newGLMnet.f90:2829:5:

 14081 continue                                                             1758
     1
Warning: Label 14081 at (1) defined but not used
newGLMnet.f90:2815:5:

 14031 continue                                                             1751
     1
Warning: Label 14031 at (1) defined but not used
newGLMnet.f90:3551:5:

 15522 continue                                                             2093
     1
Warning: Label 15522 at (1) defined but not used
newGLMnet.f90:3548:5:

 15520 do 15521 i=1,no                                                      2092
     1
Warning: Label 15520 at (1) defined but not used
newGLMnet.f90:3532:5:

 15512 continue                                                             2085
     1
Warning: Label 15512 at (1) defined but not used
newGLMnet.f90:3528:5:

 15510 do 15511 i=1,no                                                      2082
     1
Warning: Label 15510 at (1) defined but not used
newGLMnet.f90:3534:5:

 15502 continue                                                             2086
     1
Warning: Label 15502 at (1) defined but not used
newGLMnet.f90:3525:5:

 15500 do 15501 ic=1,nc                                                     2081
     1
Warning: Label 15500 at (1) defined but not used
newGLMnet.f90:3514:5:

 15452 continue                                                             2075
     1
Warning: Label 15452 at (1) defined but not used
newGLMnet.f90:3506:5:

 15450 do 15451 k=1,ni                                                      2072
     1
Warning: Label 15450 at (1) defined but not used
newGLMnet.f90:3503:5:

 15442 continue                                                             2071
     1
Warning: Label 15442 at (1) defined but not used
newGLMnet.f90:3493:5:

 15440 do 15441 j=1,ni                                                      2065
     1
Warning: Label 15440 at (1) defined but not used
newGLMnet.f90:3505:5:

 15432 continue                                                             2072
     1
Warning: Label 15432 at (1) defined but not used
newGLMnet.f90:3489:5:

 15430 do 15431 ic=1,nc                                                     2064
     1
Warning: Label 15430 at (1) defined but not used
newGLMnet.f90:3488:5:

 15422 continue                                                             2064
     1
Warning: Label 15422 at (1) defined but not used
newGLMnet.f90:3483:5:

 15420 do 15421 j=1,ni                                                      2063
     1
Warning: Label 15420 at (1) defined but not used
newGLMnet.f90:3479:5:

 15392 continue                                                             2061
     1
Warning: Label 15392 at (1) defined but not used
newGLMnet.f90:3476:5:

 15390 do 15391 ic=1,nc                                                     2060
     1
Warning: Label 15390 at (1) defined but not used
newGLMnet.f90:3465:5:

 15361 continue                                                             2055
     1
Warning: Label 15361 at (1) defined but not used
newGLMnet.f90:3472:5:

 15352 continue                                                             2060
     1
Warning: Label 15352 at (1) defined but not used
newGLMnet.f90:3457:5:

 15350 do 15351 j=1,nin                                                     2052
     1
Warning: Label 15350 at (1) defined but not used
newGLMnet.f90:3446:5:

 15342 continue                                                             2046
     1
Warning: Label 15342 at (1) defined but not used
newGLMnet.f90:3439:5:

 15340 do 15341 j=1,nin                                                     2042
     1
Warning: Label 15340 at (1) defined but not used
newGLMnet.f90:3428:5:

 15310 do 15311 j=1,nin                                                     2037
     1
Warning: Label 15310 at (1) defined but not used
newGLMnet.f90:3400:5:

 15221 continue                                                             2021
     1
Warning: Label 15221 at (1) defined but not used
newGLMnet.f90:3408:5:

 15212 continue                                                             2027
     1
Warning: Label 15212 at (1) defined but not used
newGLMnet.f90:3383:5:

 15210 do 15211 l=1,nin                                                     2013
     1
Warning: Label 15210 at (1) defined but not used
newGLMnet.f90:3379:5:

 15200 continue                                                             2012
     1
Warning: Label 15200 at (1) defined but not used
newGLMnet.f90:3347:5:

 15091 continue                                                             1995
     1
Warning: Label 15091 at (1) defined but not used
newGLMnet.f90:3330:5:

 15080 do 15081 k=1,ni                                                      1987
     1
Warning: Label 15080 at (1) defined but not used
newGLMnet.f90:3326:5:

 15070 continue                                                             1986
     1
Warning: Label 15070 at (1) defined but not used
newGLMnet.f90:3325:5:

 15042 continue                                                             1986
     1
Warning: Label 15042 at (1) defined but not used
newGLMnet.f90:3315:5:

 15040 do 15041 j=1,ni                                                      1978
     1
Warning: Label 15040 at (1) defined but not used
newGLMnet.f90:3312:5:

 14992 continue                                                             1977
     1
Warning: Label 14992 at (1) defined but not used
newGLMnet.f90:3294:5:

 14990 do 14991 i=1,no                                                      1971
     1
Warning: Label 14990 at (1) defined but not used
newGLMnet.f90:3288:5:

 14980 do 14981 ic=1,nc                                                     1968
     1
Warning: Label 14980 at (1) defined but not used
newGLMnet.f90:3283:5:

 14970 continue                                                             1967
     1
Warning: Label 14970 at (1) defined but not used
newGLMnet.f90:3281:5:

 14962 continue                                                             1966
     1
Warning: Label 14962 at (1) defined but not used
newGLMnet.f90:3276:5:

 14960 do 14961 k=1,ni                                                      1963
     1
Warning: Label 14960 at (1) defined but not used
newGLMnet.f90:3268:5:

 14952 continue                                                             1960
     1
Warning: Label 14952 at (1) defined but not used
newGLMnet.f90:3264:5:

 14950 do 14951 j=1,ni                                                      1959
     1
Warning: Label 14950 at (1) defined but not used
newGLMnet.f90:3251:5:

 14890 do 14891 ilm=1,nlam                                                  1954
     1
Warning: Label 14890 at (1) defined but not used
newGLMnet.f90:3248:5:

 14882 continue                                                             1953
     1
Warning: Label 14882 at (1) defined but not used
newGLMnet.f90:3239:5:

 14880 do 14881 j=1,ni                                                      1947
     1
Warning: Label 14880 at (1) defined but not used
newGLMnet.f90:3250:5:

 14872 continue                                                             1954
     1
Warning: Label 14872 at (1) defined but not used
newGLMnet.f90:3235:5:

 14870 do 14871 ic=1,nc                                                     1946
     1
Warning: Label 14870 at (1) defined but not used
newGLMnet.f90:3217:5:

 14842 continue                                                             1941
     1
Warning: Label 14842 at (1) defined but not used
newGLMnet.f90:3211:5:

 14840 do 14841 j=1,ni                                                      1938
     1
Warning: Label 14840 at (1) defined but not used
newGLMnet.f90:3219:5:

 14811 continue                                                             1942
     1
Warning: Label 14811 at (1) defined but not used
newGLMnet.f90:3202:5:

 14782 continue                                                             1933
     1
Warning: Label 14782 at (1) defined but not used
newGLMnet.f90:3199:5:

 14780 do 14781 i=1,no                                                      1933
     1
Warning: Label 14780 at (1) defined but not used
newGLMnet.f90:3204:5:

 14772 continue                                                             1934
     1
Warning: Label 14772 at (1) defined but not used
newGLMnet.f90:3198:5:

 14770 do 14771 ic=1,nc                                                     1933
     1
Warning: Label 14770 at (1) defined but not used
newGLMnet.f90:3195:5:

 14762 continue                                                             1932
     1
Warning: Label 14762 at (1) defined but not used
newGLMnet.f90:3192:5:

 14760 do 14761 ic=1,nc                                                     1931
     1
Warning: Label 14760 at (1) defined but not used
newGLMnet.f90:3190:5:

 14752 continue                                                             1931
     1
Warning: Label 14752 at (1) defined but not used
newGLMnet.f90:3184:5:

 14750 do 14751 ic=1,nc                                                     1927
     1
Warning: Label 14750 at (1) defined but not used
newGLMnet.f90:3179:5:

 14742 continue                                                             1924
     1
Warning: Label 14742 at (1) defined but not used
newGLMnet.f90:3176:5:

 14740 do 14741 i=1,no                                                      1924
     1
Warning: Label 14740 at (1) defined but not used
newGLMnet.f90:3173:5:

 14722 continue                                                             1923
     1
Warning: Label 14722 at (1) defined but not used
newGLMnet.f90:3169:5:

 14720 do 14721 ic=1,nc                                                     1922
     1
Warning: Label 14720 at (1) defined but not used
newGLMnet.f90:3197:5:

 14701 continue                                                             1933
     1
Warning: Label 14701 at (1) defined but not used
newGLMnet.f90:3163:5:

 14652 continue                                                             1919
     1
Warning: Label 14652 at (1) defined but not used
newGLMnet.f90:3149:5:

 14650 do 14651 ic=1,nc                                                     1914
     1
Warning: Label 14650 at (1) defined but not used
newGLMnet.f90:3569:5:

 15552 continue                                                             2101
     1
Warning: Label 15552 at (1) defined but not used
newGLMnet.f90:3566:5:

 15550 do 15551 ic=1,nc                                                     2100
     1
Warning: Label 15550 at (1) defined but not used
newGLMnet.f90:3571:5:

 15542 continue                                                             2102
     1
Warning: Label 15542 at (1) defined but not used
newGLMnet.f90:3562:5:

 15540 do 15541 j=1,nin                                                     2099
     1
Warning: Label 15540 at (1) defined but not used
newGLMnet.f90:3561:5:

 15532 continue                                                             2099
     1
Warning: Label 15532 at (1) defined but not used
newGLMnet.f90:3558:5:

 15530 do 15531 ic=1,nc                                                     2098
     1
Warning: Label 15530 at (1) defined but not used
newGLMnet.f90:3620:5:

 15662 continue                                                             2129
     1
Warning: Label 15662 at (1) defined but not used
newGLMnet.f90:3616:5:

 15660 do 15661 k=1,lmu                                                     2129
     1
Warning: Label 15660 at (1) defined but not used
newGLMnet.f90:3638:5:

 15672 continue                                                             2139
     1
Warning: Label 15672 at (1) defined but not used
newGLMnet.f90:3629:5:

 15670 do 15671 j=1,ni                                                      2135
     1
Warning: Label 15670 at (1) defined but not used
newGLMnet.f90:3880:5:

 16182 continue                                                             2248
     1
Warning: Label 16182 at (1) defined but not used
newGLMnet.f90:3877:5:

 16180 do 16181 j=1,nin                                                     2248
     1
Warning: Label 16180 at (1) defined but not used
newGLMnet.f90:3859:5:

 16132 continue                                                             2239
     1
Warning: Label 16132 at (1) defined but not used
newGLMnet.f90:3850:5:

 16130 do 16131 k=1,ni                                                      2235
     1
Warning: Label 16130 at (1) defined but not used
newGLMnet.f90:3842:5:

 16100 do 16101 j=1,nin                                                     2232
     1
Warning: Label 16100 at (1) defined but not used
newGLMnet.f90:3815:5:

 16011 continue                                                             2220
     1
Warning: Label 16011 at (1) defined but not used
newGLMnet.f90:3824:5:

 16002 continue                                                             2224
     1
Warning: Label 16002 at (1) defined but not used
newGLMnet.f90:3806:5:

 16000 do 16001 l=1,nin                                                     2216
     1
Warning: Label 16000 at (1) defined but not used
newGLMnet.f90:3802:5:

 15990 continue                                                             2215
     1
Warning: Label 15990 at (1) defined but not used
newGLMnet.f90:3780:5:

 15901 continue                                                             2206
     1
Warning: Label 15901 at (1) defined but not used
newGLMnet.f90:3771:5:

 15890 do 15891 j=1,ni                                                      2202
     1
Warning: Label 15890 at (1) defined but not used
newGLMnet.f90:3767:5:

 15880 continue                                                             2201
     1
Warning: Label 15880 at (1) defined but not used
newGLMnet.f90:3763:5:

 15870 continue                                                             2199
     1
Warning: Label 15870 at (1) defined but not used
newGLMnet.f90:3761:5:

 15862 continue                                                             2198
     1
Warning: Label 15862 at (1) defined but not used
newGLMnet.f90:3756:5:

 15860 do 15861 k=1,ni                                                      2195
     1
Warning: Label 15860 at (1) defined but not used
newGLMnet.f90:3748:5:

 15852 continue                                                             2192
     1
Warning: Label 15852 at (1) defined but not used
newGLMnet.f90:3744:5:

 15850 do 15851 j=1,ni                                                      2191
     1
Warning: Label 15850 at (1) defined but not used
newGLMnet.f90:3731:5:

 15790 do 15791 ilm=1,nlam                                                  2186
     1
Warning: Label 15790 at (1) defined but not used
newGLMnet.f90:3730:5:

 15782 continue                                                             2186
     1
Warning: Label 15782 at (1) defined but not used
newGLMnet.f90:3726:5:

 15780 do 15781 j=1,ni                                                      2185
     1
Warning: Label 15780 at (1) defined but not used
newGLMnet.f90:3712:5:

 15732 continue                                                             2181
     1
Warning: Label 15732 at (1) defined but not used
newGLMnet.f90:3706:5:

 15730 do 15731 i=1,no                                                      2180
     1
Warning: Label 15730 at (1) defined but not used
newGLMnet.f90:3702:5:

 15701 continue                                                             2178
     1
Warning: Label 15701 at (1) defined but not used
newGLMnet.f90:3945:5:

 16290 continue                                                             2272
     1
Warning: Label 16290 at (1) defined but not used
newGLMnet.f90:3943:5:

 16280 continue                                                             2271
     1
Warning: Label 16280 at (1) defined but not used
newGLMnet.f90:3937:5:

 16272 continue                                                             2270
     1
Warning: Label 16272 at (1) defined but not used
newGLMnet.f90:3934:5:

 16270 do 16271 j=1,nj                                                      2269
     1
Warning: Label 16270 at (1) defined but not used
newGLMnet.f90:3922:5:

 16240 continue                                                             2267
     1
Warning: Label 16240 at (1) defined but not used
newGLMnet.f90:3916:5:

 16212 continue                                                             2266
     1
Warning: Label 16212 at (1) defined but not used
newGLMnet.f90:3911:5:

 16210 do 16211 j=1,no                                                      2265
     1
Warning: Label 16210 at (1) defined but not used
newGLMnet.f90:3908:5:

 16202 continue                                                             2264
     1
Warning: Label 16202 at (1) defined but not used
newGLMnet.f90:3905:5:

 16200 do 16201 j=1,no                                                      2264
     1
Warning: Label 16200 at (1) defined but not used
newGLMnet.f90:4018:5:

 16402 continue                                                             2306
     1
Warning: Label 16402 at (1) defined but not used
newGLMnet.f90:4015:5:

 16400 do 16401 k=2,nk                                                      2305
     1
Warning: Label 16400 at (1) defined but not used
newGLMnet.f90:4032:5:

 16422 continue                                                             2314
     1
Warning: Label 16422 at (1) defined but not used
newGLMnet.f90:4029:5:

 16420 do 16421 j=j2,j1,-1                                                  2313
     1
Warning: Label 16420 at (1) defined but not used
newGLMnet.f90:4035:5:

 16412 continue                                                             2316
     1
Warning: Label 16412 at (1) defined but not used
newGLMnet.f90:4025:5:

 16410 do 16411 k=nk,1,-1                                                   2311
     1
Warning: Label 16410 at (1) defined but not used
newGLMnet.f90:3997:5:

 16362 continue                                                             2294
     1
Warning: Label 16362 at (1) defined but not used
newGLMnet.f90:3988:5:

 16360 do 16361 j=j1,j2                                                     2290
     1
Warning: Label 16360 at (1) defined but not used
newGLMnet.f90:3999:5:

 16352 continue                                                             2295
     1
Warning: Label 16352 at (1) defined but not used
newGLMnet.f90:3983:5:

 16350 do 16351 k=2,nk                                                      2288
     1
Warning: Label 16350 at (1) defined but not used
newGLMnet.f90:3982:5:

 16322 continue                                                             2288
     1
Warning: Label 16322 at (1) defined but not used
newGLMnet.f90:3973:5:

 16320 do 16321 j=1,kp(1)                                                   2284
     1
Warning: Label 16320 at (1) defined but not used
newGLMnet.f90:4008:5:

 16392 continue                                                             2300
     1
Warning: Label 16392 at (1) defined but not used
newGLMnet.f90:4005:5:

 16390 do 16391 j=1,ni                                                      2299
     1
Warning: Label 16390 at (1) defined but not used
newGLMnet.f90:3899:5:

 16192 continue                                                             2260
     1
Warning: Label 16192 at (1) defined but not used
newGLMnet.f90:3896:5:

 16190 do 16191 i=1,n                                                       2259
     1
Warning: Label 16190 at (1) defined but not used
newGLMnet.f90:4091:5:

 16472 continue                                                             2352
     1
Warning: Label 16472 at (1) defined but not used
newGLMnet.f90:4087:5:

 16470 do 16471 i=1,no                                                      2349
     1
Warning: Label 16470 at (1) defined but not used
newGLMnet.f90:4094:5:

 16462 continue                                                             2354
     1
Warning: Label 16462 at (1) defined but not used
newGLMnet.f90:4086:5:

 16460 do 16461 lam=1,nlam                                                  2349
     1
Warning: Label 16460 at (1) defined but not used
newGLMnet.f90:4085:5:

 16452 continue                                                             2348
     1
Warning: Label 16452 at (1) defined but not used
newGLMnet.f90:4082:5:

 16450 do 16451 j=1,ni                                                      2347
     1
Warning: Label 16450 at (1) defined but not used
newGLMnet.f90:4151:5:

 16582 continue                                                             2388
     1
Warning: Label 16582 at (1) defined but not used
newGLMnet.f90:4146:5:

 16580 do 16581 k=1,lmu                                                     2384
     1
Warning: Label 16580 at (1) defined but not used
newGLMnet.f90:4398:5:

 17022 continue                                                             2487
     1
Warning: Label 17022 at (1) defined but not used
newGLMnet.f90:4395:5:

 17020 do 17021 j=1,nin                                                     2487
     1
Warning: Label 17020 at (1) defined but not used
newGLMnet.f90:4375:5:

 16972 continue                                                             2477
     1
Warning: Label 16972 at (1) defined but not used
newGLMnet.f90:4366:5:

 16970 do 16971 k=1,ni                                                      2473
     1
Warning: Label 16970 at (1) defined but not used
newGLMnet.f90:4358:5:

 16940 do 16941 j=1,nin                                                     2469
     1
Warning: Label 16940 at (1) defined but not used
newGLMnet.f90:4330:5:

 16871 continue                                                             2459
     1
Warning: Label 16871 at (1) defined but not used
newGLMnet.f90:4337:5:

 16862 continue                                                             2462
     1
Warning: Label 16862 at (1) defined but not used
newGLMnet.f90:4319:5:

 16860 do 16861 l=1,nin                                                     2455
     1
Warning: Label 16860 at (1) defined but not used
newGLMnet.f90:4315:5:

 16850 continue                                                             2454
     1
Warning: Label 16850 at (1) defined but not used
newGLMnet.f90:4290:5:

 16781 continue                                                             2445
     1
Warning: Label 16781 at (1) defined but not used
newGLMnet.f90:4279:5:

 16770 do 16771 k=1,ni                                                      2441
     1
Warning: Label 16770 at (1) defined but not used
newGLMnet.f90:4275:5:

 16760 continue                                                             2440
     1
Warning: Label 16760 at (1) defined but not used
newGLMnet.f90:4274:5:

 16752 continue                                                             2440
     1
Warning: Label 16752 at (1) defined but not used
newGLMnet.f90:4271:5:

 16750 do 16751 j=1,ni                                                      2439
     1
Warning: Label 16750 at (1) defined but not used
newGLMnet.f90:4267:5:

 16740 continue                                                             2437
     1
Warning: Label 16740 at (1) defined but not used
newGLMnet.f90:4265:5:

 16732 continue                                                             2436
     1
Warning: Label 16732 at (1) defined but not used
newGLMnet.f90:4260:5:

 16730 do 16731 k=1,ni                                                      2433
     1
Warning: Label 16730 at (1) defined but not used
newGLMnet.f90:4252:5:

 16722 continue                                                             2430
     1
Warning: Label 16722 at (1) defined but not used
newGLMnet.f90:4248:5:

 16720 do 16721 j=1,ni                                                      2429
     1
Warning: Label 16720 at (1) defined but not used
newGLMnet.f90:4235:5:

 16660 do 16661 ilm=1,nlam                                                  2424
     1
Warning: Label 16660 at (1) defined but not used
newGLMnet.f90:4234:5:

 16652 continue                                                             2424
     1
Warning: Label 16652 at (1) defined but not used
newGLMnet.f90:4230:5:

 16650 do 16651 j=1,ni                                                      2423
     1
Warning: Label 16650 at (1) defined but not used
newGLMnet.f90:4215:5:

 16622 continue                                                             2420
     1
Warning: Label 16622 at (1) defined but not used
newGLMnet.f90:4212:5:

 16620 do 16621 i=1,no                                                      2420
     1
Warning: Label 16620 at (1) defined but not used
newGLMnet.f90:4206:5:

 16591 continue                                                             2419
     1
Warning: Label 16591 at (1) defined but not used
newGLMnet.f90:4405:5:

 11790 continue                                                             2492
     1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4427:5:

 17062 continue                                                             2503
     1
Warning: Label 17062 at (1) defined but not used
newGLMnet.f90:4424:5:

 17060 do 17061 lam=1,lmu                                                   2502
     1
Warning: Label 17060 at (1) defined but not used
newGLMnet.f90:4436:5:

 17072 continue                                                             2508
     1
Warning: Label 17072 at (1) defined but not used
newGLMnet.f90:4433:5:

 17070 do 17071 lam=1,lmu                                                   2507
     1
Warning: Label 17070 at (1) defined but not used
newGLMnet.f90:4463:5:

 17132 continue                                                             2524
     1
Warning: Label 17132 at (1) defined but not used
newGLMnet.f90:4458:5:

 17130 do 17131 i=1,no                                                      2520
     1
Warning: Label 17130 at (1) defined but not used
newGLMnet.f90:4466:5:

 17122 continue                                                             2526
     1
Warning: Label 17122 at (1) defined but not used
newGLMnet.f90:4456:5:

 17120 do 17121 lam=1,nlam                                                  2519
     1
Warning: Label 17120 at (1) defined but not used
newGLMnet.f90:4521:5:

 17222 continue                                                             2560
     1
Warning: Label 17222 at (1) defined but not used
newGLMnet.f90:4516:5:

 17220 do 17221 k=1,lmu                                                     2556
     1
Warning: Label 17220 at (1) defined but not used
newGLMnet.f90:4805:5:

 17672 continue                                                             2689
     1
Warning: Label 17672 at (1) defined but not used
newGLMnet.f90:4802:5:

 17670 do 17671 j=1,nin                                                     2689
     1
Warning: Label 17670 at (1) defined but not used
newGLMnet.f90:4782:5:

 17622 continue                                                             2679
     1
Warning: Label 17622 at (1) defined but not used
newGLMnet.f90:4769:5:

 17620 do 17621 j=1,ni                                                      2672
     1
Warning: Label 17620 at (1) defined but not used
newGLMnet.f90:4761:5:

 17590 do 17591 j=1,nin                                                     2668
     1
Warning: Label 17590 at (1) defined but not used
newGLMnet.f90:4729:5:

 17521 continue                                                             2654
     1
Warning: Label 17521 at (1) defined but not used
newGLMnet.f90:4739:5:

 17512 continue                                                             2659
     1
Warning: Label 17512 at (1) defined but not used
newGLMnet.f90:4715:5:

 17510 do 17511 l=1,nin                                                     2647
     1
Warning: Label 17510 at (1) defined but not used
newGLMnet.f90:4711:5:

 17500 continue                                                             2646
     1
Warning: Label 17500 at (1) defined but not used
newGLMnet.f90:4684:5:

 17431 continue                                                             2634
     1
Warning: Label 17431 at (1) defined but not used
newGLMnet.f90:4670:5:

 17420 do 17421 k=1,ni                                                      2628
     1
Warning: Label 17420 at (1) defined but not used
newGLMnet.f90:4666:5:

 17410 continue                                                             2626
     1
Warning: Label 17410 at (1) defined but not used
newGLMnet.f90:4665:5:

 17402 continue                                                             2626
     1
Warning: Label 17402 at (1) defined but not used
newGLMnet.f90:4657:5:

 17400 do 17401 j=1,ni                                                      2621
     1
Warning: Label 17400 at (1) defined but not used
newGLMnet.f90:4653:5:

 17390 continue                                                             2619
     1
Warning: Label 17390 at (1) defined but not used
newGLMnet.f90:4651:5:

 17382 continue                                                             2618
     1
Warning: Label 17382 at (1) defined but not used
newGLMnet.f90:4646:5:

 17380 do 17381 k=1,ni                                                      2615
     1
Warning: Label 17380 at (1) defined but not used
newGLMnet.f90:4638:5:

 17372 continue                                                             2612
     1
Warning: Label 17372 at (1) defined but not used
newGLMnet.f90:4634:5:

 17370 do 17371 j=1,ni                                                      2611
     1
Warning: Label 17370 at (1) defined but not used
newGLMnet.f90:4621:5:

 17310 do 17311 ilm=1,nlam                                                  2606
     1
Warning: Label 17310 at (1) defined but not used
newGLMnet.f90:4620:5:

 17302 continue                                                             2606
     1
Warning: Label 17302 at (1) defined but not used
newGLMnet.f90:4613:5:

 17300 do 17301 j=1,ni                                                      2601
     1
Warning: Label 17300 at (1) defined but not used
newGLMnet.f90:4598:5:

 17272 continue                                                             2598
     1
Warning: Label 17272 at (1) defined but not used
newGLMnet.f90:4595:5:

 17270 do 17271 i=1,no                                                      2598
     1
Warning: Label 17270 at (1) defined but not used
newGLMnet.f90:4586:5:

 17262 continue                                                             2595
     1
Warning: Label 17262 at (1) defined but not used
newGLMnet.f90:4580:5:

 17260 do 17261 j=1,ni                                                      2592
     1
Warning: Label 17260 at (1) defined but not used
newGLMnet.f90:4588:5:

 17231 continue                                                             2596
     1
Warning: Label 17231 at (1) defined but not used
newGLMnet.f90:4812:5:

 11790 continue                                                             2694
     1
Warning: Label 11790 at (1) defined but not used
newGLMnet.f90:4844:5:

 17732 continue                                                             2713
     1
Warning: Label 17732 at (1) defined but not used
newGLMnet.f90:4838:5:

 17730 do 17731 j=1,ni                                                      2710
     1
Warning: Label 17730 at (1) defined but not used
newGLMnet.f90:4849:5:

 17722 continue                                                             2717
     1
Warning: Label 17722 at (1) defined but not used
newGLMnet.f90:4836:5:

 17720 do 17721 lam=1,nlam                                                  2709
     1
Warning: Label 17720 at (1) defined but not used
newGLMnet.f90:4883:5:

 17792 continue                                                             2736
     1
Warning: Label 17792 at (1) defined but not used
newGLMnet.f90:4877:5:

 17790 do 17791 k=1,nin(lam)                                                2733
     1
Warning: Label 17790 at (1) defined but not used
newGLMnet.f90:4888:5:

 17782 continue                                                             2740
     1
Warning: Label 17782 at (1) defined but not used
newGLMnet.f90:4875:5:

 17780 do 17781 lam=1,nlam                                                  2732
     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) [-Wunused-dummy-argument]
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) [-Wunused-dummy-argument]
newGLMnet.f90:4038:25:

       function risk(no,ni,nk,d,dk,f,e,kp,jp,u)                             2319
                         1
Warning: Unused dummy argument ‘ni’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:4041:24:

       real e(no),u(nk),s                                                   2321
                        1
Warning: Unused variable ‘s’ declared at (1) [-Wunused-variable]
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) [-Wunused-dummy-argument]
newGLMnet.f90:1394:8:

      *rr)
        1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:1150:9:

      *err)
         1
Warning: Unused dummy argument ‘jerr’ at (1) [-Wunused-dummy-argument]
newGLMnet.f90:2086:0:

       if(jerr.ne.0) return                                                 1413
 
Warning: control reaches end of non-void function [-Wreturn-type]
newGLMnet.f90:4535:0:

       integer, dimension (:), allocatable :: mm,ixx
 
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4535:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4534:0:

       real, dimension (:), allocatable :: qy,t,w,wr,v,a,as,xm,ga
 
Warning: ‘t.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:4640:0:

       al=alf*al0                                                           2613
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4165:0:

       integer, dimension (:), allocatable :: mm,ixx
 
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4165:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0:

       real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga
 
Warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0: Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4254:0:

       al=alf*al0                                                           2431
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4164:0:

       real, dimension (:), allocatable :: t,w,wr,v,a,f,as,ga
 
Warning: ‘f.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3785:0:

       wr=wr-del*w*x(:,j)                                                   2207
 
Warning: ‘wr.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3649:0:

       integer, dimension (:), allocatable :: jp,kp,mm,ixx
 
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3647:0:

       real, dimension (:), allocatable :: w,dk,v,xs,wr,a,as,f,dq
 
Warning: ‘as.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:3750:0:

       al=alf*al0                                                           2193
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3649:0:

       integer, dimension (:), allocatable :: jp,kp,mm,ixx
 
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3110:0:

       real, dimension (:), allocatable :: sxp,sxpl
 
Warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3448:0:

       sxp=sxp-q(:,ic)                                                      2048
 
Warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3111:0:

       real, dimension (:), allocatable :: sc,xm,v,r,ga
 
Warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3236:0:

       v=q(:,ic)/sxp                                                        1946
 
Warning: ‘v.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3237:0:

       r=w*(y(:,ic)-v)                                                      1946
 
Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3109:0:

       real, dimension (:,:), allocatable :: q
 
Warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3492:0:

       v=w*v*(1.0-v)                                                        2065
 
Warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3109:0:

       real, dimension (:,:), allocatable :: q
 
Warning: ‘q.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3270:0:

       al=alf*al0                                                           1961
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3437:0:

       sc=b(0,ic)+g(:,ic)                                                   2041
 
Warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3113:0:

       integer, dimension (:), allocatable :: mm,is,iy
 
Warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3113:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3112:0:

       real, dimension (:,:), allocatable :: b,bs,xv
 
Warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:2758:0:

       real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
 
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:

       integer, dimension (:), allocatable :: mm,ixx
 
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2759:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0:

       real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
 
Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2883:0:

       al=alf*al0                                                           1779
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2758:0:

       real, dimension (:), allocatable :: xm,b,bs,v,r,sc,xv,q,ga
 
Warning: ‘sc.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2114:0:

       real, dimension (:), allocatable :: di,v,r,ga
 
Warning: ‘ga.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2114:0: Warning: ‘di.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2113:0:

       real, dimension (:), allocatable :: sxp,sxpl
 
Warning: ‘sxpl.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2113:0: Warning: ‘sxp.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2232:0:

       r=w*(y(:,ic)-q(:,ic)/sxp)                                            1482
 
Warning: ‘r.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2112:0:

       real, dimension (:,:), allocatable :: q
 
Warning: ‘q.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:2258:0:

       al=alf*al0                                                           1491
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2116:0:

       integer, dimension (:), allocatable :: mm,is,ixx
 
Warning: ‘ixx.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]
newGLMnet.f90:2115:0:

       real, dimension (:,:), allocatable :: b,bs,xv
 
Warning: ‘bs.dim[1].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
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:1779:0:

       real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
 
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:

       integer, dimension (:), allocatable :: mm,ixx
 
Warning: ‘ixx.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1780:0: Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0:

       real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
 
Warning: ‘bs.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0: Warning: ‘xv.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1889:0:

       al=alf*al0                                                           1320
 
Warning: ‘alf’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1779:0:

       real, dimension (:), allocatable :: b,bs,v,r,xv,q,ga
 
Warning: ‘q.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1428:0:

       integer, dimension (:), allocatable :: mm,iy
 
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1428:0: Warning: ‘iy.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1427:0:

       real, dimension (:), allocatable :: a,g
 
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1357:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1356:0:

       real, dimension (:), allocatable :: xm,xs,xv,vlam
 
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1192:0:

       integer, dimension (:), allocatable :: mm
 
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1276:0:

       if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                              1024
 
Warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1276:0: Warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1191:0:

       real, dimension (:), allocatable :: a,da
 
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1111:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1110:0:

       real, dimension (:), allocatable :: xm,xs,g,xv,vlam
 
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:881:0:

       integer, dimension (:), allocatable :: mm,ix
 
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:881:0: Warning: ‘ix.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:880:0:

       real, dimension (:), allocatable :: a,g
 
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:802:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:801:0:

       real, dimension (:), allocatable :: xm,xs,xv,vlam
 
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:637:0:

       integer, dimension (:), allocatable :: mm
 
Warning: ‘mm.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:721:0:

       if(ju(j).ne.0) g(j)=g(j)-c(j,mm(k))*del                               729
 
Warning: ‘c.dim[1].stride’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:721:0: Warning: ‘c.offset’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:636:0:

       real, dimension (:), allocatable :: a,da
 
Warning: ‘a.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:551:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:550:0:

       real, dimension (:), allocatable :: xm,xs,g,xv,vlam
 
Warning: ‘vlam.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1694:0:

       real, dimension (:), allocatable :: xm,xs,ww,vq
 
Warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:1695:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2672:0:

       real, dimension (:), allocatable :: xm,xs,ww,vq
 
Warning: ‘ww.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:2673:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:3580:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4049:0:

       real, dimension (:), allocatable :: dk,f,xm,dq,q
 
Warning: ‘dq.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4105:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
newGLMnet.f90:4477:0:

       integer, dimension (:), allocatable :: ju
 
Warning: ‘ju.dim[0].ubound’ may be used uninitialized in this function [-Wmaybe-uninitialized]
gfortran -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 iClusterBayes.o iClusterPlus.o newGLMnet.o -L/Library/Frameworks/R.framework/Resources/lib -lRlapack -L/Library/Frameworks/R.framework/Resources/lib -lRblas -L/usr/local/gfortran/lib/gcc/x86_64-apple-darwin15/6.1.0 -L/usr/local/gfortran/lib -lgfortran -lquadmath -lm -F/Library/Frameworks/R.framework/.. -framework R -Wl,-framework -Wl,CoreFoundation
installing to /Library/Frameworks/R.framework/Versions/3.5/Resources/library/iClusterPlus/libs
** R
** data
*** moving datasets to lazyload DB
** demo
** inst
** byte-compile and prepare package for lazy loading
** help
*** installing help indices
** building package indices
** installing vignettes
   ‘iClusterPlus.Rnw’ using ‘UTF-8’ 
** testing if installed package can be loaded
* DONE (iClusterPlus)

Tests output

iClusterPlus.Rcheck/tests/runTests.Rout


R version 3.5.1 Patched (2018-07-12 r74967) -- "Feather Spray"
Copyright (C) 2018 The R Foundation for Statistical Computing
Platform: x86_64-apple-darwin15.6.0 (64-bit)

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> BiocGenerics:::testPackage("iClusterPlus")


RUNIT TEST PROTOCOL -- Tue Oct 16 22:04:29 2018 
*********************************************** 
Number of test functions: 0 
Number of errors: 0 
Number of failures: 0 

 
1 Test Suite : 
iClusterPlus RUnit Tests - 0 test functions, 0 errors, 0 failures
Number of test functions: 0 
Number of errors: 0 
Number of failures: 0 
> 
> 
> proc.time()
   user  system elapsed 
 80.640   0.337  81.601 

Example timings

iClusterPlus.Rcheck/iClusterPlus-Ex.timings

nameusersystemelapsed
CNregions0.0020.0000.002
compute.pod0.0020.0000.002
iCluster4.9110.0625.011
iCluster20.4340.0120.451
iClusterBayes0.0010.0000.001
iClusterPlus0.0010.0000.001
plotHMBayes0.0000.0000.001
plotHeatmap0.0010.0000.001
plotRI0.0010.0000.002
plotiCluster0.0010.0000.001
tune.iClusterBayes0.0010.0000.001
tune.iClusterPlus0.0020.0000.002
utility0.0020.0000.001