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

INSTALL report for iClusterPlus on merida1

This page was generated on 2019-04-16 11:57:19 -0400 (Tue, 16 Apr 2019).

Package 753/1649HostnameOS / ArchINSTALLBUILDCHECKBUILD BIN
iClusterPlus 1.18.0
Qianxing Mo , Ronglai Shen
Snapshot Date: 2019-04-15 17:01:12 -0400 (Mon, 15 Apr 2019)
URL: https://git.bioconductor.org/packages/iClusterPlus
Branch: RELEASE_3_8
Last Commit: 3b2a748
Last Changed Date: 2018-10-30 11:41:52 -0400 (Tue, 30 Oct 2018)
malbec1 Linux (Ubuntu 16.04.6 LTS) / x86_64  OK  OK  OK UNNEEDED, same version exists in internal repository
merida1 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.18.0
Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD INSTALL iClusterPlus
StartedAt: 2019-04-15 17:58:57 -0400 (Mon, 15 Apr 2019)
EndedAt: 2019-04-15 17:59:24 -0400 (Mon, 15 Apr 2019)
EllapsedTime: 26.6 seconds
RetCode: 0
Status:  OK 

Command output

##############################################################################
##############################################################################
###
### 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)