Qianxing Mo
| Snapshot Date: 2019-04-08 17:01:18 -0400 (Mon, 08 Apr 2019) |
| URL: https://git.bioconductor.org/packages/iClusterPlus |
| Branch: master |
| Last Commit: 55e0773 |
| Last Changed Date: 2018-10-30 11:54:32 -0400 (Tue, 30 Oct 2018) |
| Back to Multiple platform build/check report for BioC 3.9 |
|
This page was generated on 2019-04-09 13:29:03 -0400 (Tue, 09 Apr 2019).
| Package 777/1703 | Hostname | OS / Arch | INSTALL | BUILD | CHECK | BUILD BIN | ||||||
| iClusterPlus 1.19.0 Qianxing Mo
| malbec2 | Linux (Ubuntu 18.04.2 LTS) / x86_64 | OK | OK | OK | | ||||||
| tokay2 | Windows Server 2012 R2 Standard / x64 | ERROR | ERROR | skipped | skipped | |||||||
| celaya2 | OS X 10.11.6 El Capitan / x86_64 | OK | OK | WARNINGS | OK | | ||||||
| merida2 | OS X 10.11.6 El Capitan / x86_64 | [ OK ] | OK | WARNINGS | OK |
| Package: iClusterPlus |
| Version: 1.19.0 |
| Command: /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD INSTALL iClusterPlus |
| StartedAt: 2019-04-08 18:01:54 -0400 (Mon, 08 Apr 2019) |
| EndedAt: 2019-04-08 18:02:42 -0400 (Mon, 08 Apr 2019) |
| EllapsedTime: 48.1 seconds |
| RetCode: 0 |
| Status: OK |
##############################################################################
##############################################################################
###
### Running command:
###
### /Library/Frameworks/R.framework/Versions/Current/Resources/bin/R CMD INSTALL iClusterPlus
###
##############################################################################
##############################################################################
* installing to library ‘/Library/Frameworks/R.framework/Versions/3.6/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.6/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)